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Dès le 20 Avril : 
LE RECUEIL 3 


méros 9 à 12 de Pom's 


Le recueil n°3 : plus de cinquante programmes 
Le recueil n°3 : une référence/indispensable 


Recueil 3 (regroupant les es Pom's) : 140,00 F TTC franco 
_ Disquettes d'accompagnement 9 à 12 (J[+, /e, /e+,//c) : 190,00 F TTC franco 
Bon de commande page 74 









A L'Éditeur Plein Écran 
ÉDE version 5.0 


ÿ ” Vous permet toujours de : 


- lister vos programmes Basic en avant et en arrière ; 

:« modifier, insérer, effacer des caractères en plein écran sans relire les lignes ; 
: * rechercher toute chaîne de caractères ; 

: - choisir vous-même les codes de contrôle d'EPE. 


i mais il fonctionne maintenant : 
:. sous DOS  - en 40 colonnes :* sur Apple ][+ * sur Apple //e+ 
:-. sous Prodos - en 80 colonnes :* sur Apple //e *- sur Apple //c 


EPE version 5.0 : 200,00 F TTC franco 
Échange ancienne version contre version 5.0 : 80,00 F TTC franco 
bon de commande page 74 
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Éditorial 


Ce numéro de printemps, outre ses treize programmes, vous présente deux 
nouveautés : le recueil n°3 d'abord, qui regroupe les numéros 9 à 12 de Pom's. Il 
vous séduira particulièrement pour ses listings sortis sur la LaserWriter (toujours la 
communication entre Apple !! et Mac !). Une soixantaine de programmes et plus de 200 
pages : une mine de renseignements à portée de main. 

Deuxième nouveauté : E.P.E. 5.0. Nombre d'entre vous avait en effet pris la plume 
pour déplorer l'impossibilité d'éditer avec E.P.E. sous ProDOS en 80 colonnes. Dès 
aujourd'hui, cette nouvelle version est disponible, et elle fonctionnera également sur 
votre /Ic. 

Vous n'avez pas E.P.E. ? au prix de 200,00 F, c'est un éditeur sans égal. 

Vous avez E.P.E. ? retournez-nous la disquette originale, nous la mettrons à niveau au 
prix de 80,00 F. 


Depuis plus de deux années (Pom's n° 9), vous trouviez les disquettes 
d'accompagnement Apple !! à 55,00 F ou à 280,00 F par abonnement : elles resteront 
sans concurrence, mais nous devons avouer que nous étudions une ‘remise à jour’ de ces 
prix. Ne tardez pas à renouveler votre abonnement ! 


Pascal et Turbo Pascal, CP/M, DOS et ProDOS, assembleur et Basic, 6502, 65C02 et 
68000 : vous trouverez certainement ce numéro très riche ; vos contributions nous 
montrent que vous êtes particulièrement actifs devant vos claviers. Dans le numéro 24 
probablement, vous trouverez le très beau fruit de cette activité sous la forme d'un 
programme en CPIM, CPIM que nous avions quelque peu délaissé. 


Nous vous donnons rendez-vous au Sicob Boutique, du 14 au 19 avril, stand 2A203 
et n'oubliez pas notre petit questionnaire page 73 ! 


Hervé Thiriez 


Ont collaboré à ce numéro : Jean-Paul Arbel, Alexandre Avrane, Jean-Luc Bazanegue, Dominique Bernardi, Gilles 
Caraux, Gaëtan Dagron, Delphine Declercq, Alexandre Duback, Bruno Fénard, Sylvie Gallet, 
Jean-Michel Gourévitch, Olivier Herz, Jacques Honorez, Bernard Hoyez, Yvan Koenig, Niels 
Koge, Jean-Claude Lengrand, Gérard Michel, Nicolas Montsarrat, Jean-Luc Nail, Patrice 
Neveu, Christian Piard, Hervé Thiriez. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Editions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Editions MEV. 

Diffusion : N.M.P.P. 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes. Tél. : (1) 43.28.18.63. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. 
Apple, le logo Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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Var) dr 


Nicolas Montsarrat 


ommercialisé en France 

par FRACIEL - 42, rue 

des Prébendes - 37000 

TOURS au prix de 
625,00 francs HT (soit 741,25 
francs TTC) dans sa version 
CP/M, le TURBO-PASCAL est 
un des meilleurs compilateurs 
Pascal disponibles sur Apple ][+, 
Ile et //c. Le système comporte le 
compilateur TURBO.COM rési- 
dant en mémoire centrale, avec 
éditeur incorporé, le programme 
d'installation TINST.COM, 
TLIST.COM qui liste les 
fichiers-source, ainsi qu'un petit 
tableur de démonstration nommé 
“Microcalc”. 


Le système 
TÜURBO-PASCAL 


Après avoir appelé TURBO 
.COM, le programme propose un 
menu permettant d'éditer un 
fichier-source, de le compiler, de 
l'exécuter, de le sauver. Il 
propose quelques commandes de 
manipulation des disquettes 
(catalogue, appel d'un programme 
extérieur, etc.), et des commandes 
diverses (compilation en mémoire 
centrale ou sur disquette, adresse 


de départ du programme 
objet,...). 
L'Editeur 


L'éditeur reprend la majorité des 
commandes de WORDSTAR, le 
traitement de texte bien connu 
tournant sous CP/M. Outre les 


commandes de contrôle du 
curseur, on y trouve des 
commandes de déplacements et de 
copie de blocs de texte, de 
recherche et de remplacement, 
ainsi que de mise en place du 
système de  tabulation 
automatique. 


La place disponible pour les textes 
est d'environ 22 Ko sous CP/M 
60Ko et de 18 Ko sous CP/M 
56Ko. C'est largement suffisant 
pour les programmes de taille 
moyenne, d'autant plus que le 
compilateur permet de compiler 
des programmes dont le source 
est composé de plusieurs fichiers 
(‘include files”) 


Cet éditeur est pratique à utiliser, 
rapide et puissant. Un petit défaut 
toutefois : pour les possesseurs 
d'Apple ][+, il y a des problèmes 
de reconnaissance de la vidéo 
inverse sur certaines cartes 80 
colonnes destinées au J[+ (Par 
exemple la carte U-Term), en 
particulier le curseur n'est pas 
visible à l'écran, ce qui n'est pas 
sans poser quelques problèmes. 
Pour les cartes 80 colonnes des //e 
et //c, aucun problème. 


Le Compilateur 


Le compilateur, résident en 
mémoire centrale, est sûrement le 
compilateur Pascal le plus rapide 
disponible sur Apple : Il compile 
les programmes en une seule 
passe, directement en code 


machine (et non en code-P comme 
le Pascal UCSD). Deux options 
sont proposées : la compilation en 


Une application 


mémoire, où le code et le source 
résident en mémoire, et la 
compilation sur fichier COM, où 
seul le source est en mémoire. 
Cette deuxième possibilité permet 
de compiler des programmes dont 
le source est trop important pour 
laisser de la place au code, ou 
simplement pour obtenir un 
fichier exécutable indépendant du 
système TURBO-PASCAL. 


La vitesse d'exécution des fichiers 
objet est également impres- 
sionante : un petit peu plus d'une 
seconde pour une boucle de 1 à 
10000, contre 8 pour le Pascal 
UCSD, bien que le code généré 
soit du code Z80, plus lent que 
l'équivalent 6502. 


En conclusion, un compilateur 
simple à utiliser, dont les 
performances sont inégalées sur 
Apple. 


Le langage Pascal 
proprement dit 


Le TURBO-PASCAL reprend 
toutes les caractéristiques du 
Pascal standard, plus quelques 
extensions : 


Le type BYTE permet de définir 
des nombres entiers entre 0 et 
255, n'occupant qu'un seul octet 
en mémoire. Les conversions en 
INTEGER se font automa- 
tiquement, sans générer d'erreurs. 


Le type REAL définit les nombres 
réel entre 1-38 et 1+38 sur une 
mantisse de 11 chiffres, on est 


loin des maigres 6 chiffres du 
Pascal UCSD. 
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Les chaînes de caractères sont 
présentes, avec le type STRING 
et les instructions DELETE, 
INSERT, STR, VAL et les 
fonctions COPY, CONCAT, 
LENGTH, POS. 


Les types énumérés (par exemple 
VAR HUMAIN : [HOMME, 
FEMME]) sont utilisables, 
contrairement au Pascal UCSD, 
sans écrire de routines de 
conversion : ainsi on peut écrire 
WRITELN (HUMAIN) et on aura 
à l'écran "HOMME" ou 
"FEMME" en toutes lettres. De 
même pour READLN 
(HUMAIN), qui attend les 
caractères HOMME ou FEMME. 


Les "TYPED CONSTANTS" 
permettent de forcer le type d'une 
constante. Ainsi on peut définir 
CONST CR : CHAR = ‘M qui 
définit le caractère ‘Retour 
chariot’. On peut utiliser ces 
constantes comme paramètres de 
procédures de fonctions, 
contrairement à certaines 
constantes normales. On peut de 
même les utiliser pour initialiser 
des tableaux de constantes, 
permettant de simuler les 
READ/DATA du basic : on peut 
définir CONST DEUX : ARRAY 
[0..7] OF BYTE - 
(1,2,4,8,16,32,64,128), et 
manipuler DEUX comme un 
-tableau (voir programme 
GRAPHIC). 


La gestion des fichiers est 
comparable à la gestion UCSD, 
avec fichiers séquentiels et 
fichiers directs. Comme en Pascal 
UCSD, on accède aux 
périphériques par des fichiers 
portant le nom des ‘devices’ 
CP/M : “CON:” pour l'écran, 
“KBD:” pour le clavier sans écho, 
“LST:” pour l'imprimante, 
“AUX:” pour la carte série, etc. 
On trouve également les 
UNTYPED FILES du Pascal 
UCSD, qui permettent d'accéder à 
des fichiers CP/M par blocs de 
128 octets. 


Toutes les procédures de gestion 
de l'écran sont présentes, avec 
vidéo inverse (sur //e et //c) et 
contrôle du curseur. 
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Dans la version CP/M, on peut 
définir des variables à une 
position absolue en mémoire 
(directive ABSOLUTE, voir 
programme GRAPHIC), chaîner 
des programmes, et appeler des 
sous programmes en assembleur : 
il suffit d'insérer les codes 
hexadécimaux de la routine. 


Quelques restrictions : pour 
optimiser la vitesse d'exécution, 
le Turbo Pascal ne génère de code 
pour les appels récursif que sur 
demande de l'utilisateur par 
l'option {$A+}, et n'effectue la 
vérification des indices de tableau 
qu'avec l'option {$X+}. 


Les limites 


On peut faire au Turbo Pascal 

deux reproches principaux : 

+ dans la version Apple CP/M, il 
n'y a aucune gestion possible 
des graphiques. On peut lever 
cette barrière partiellement 
(voir programme GRAPHIC), 
mais les routines ne seraient 
très performantes qu'en 
assembleur ; 





+ il n'y a pas de possibilité de 
créer des ‘librairies’ et des 
‘unités’ : la seule entité 
compilable est un PROGRAM. 
On ne peut donc pas créer de 
gros programmes, séparés en 
modules d'une dizaine de Ko 
s'appelant les uns les autres. 


Conclusion 


On l'a vu, le TURBO-PASCAL 
possède des performances 
époustouflantes en compilation et 
en vitesse d'exécution. Les 
débutants pourront l'utiliser de 
manière beaucoup plus pratique 
que le Pascal UCSD pour se 
former, le dialogue avec 
l'utilisateur étant très intéractif, et 
les attentes nettement moins 
longues. L'utilisateur chevronné 
pourra s'en servir pour exécuter 
des programmes plus rapidement, 
la conversion depuis le système 
UCSD étant relativement aisée 
avec un programme comme 
UNIVERSAL FILE CONVER- 


SION. 
G 


Programme ‘GRAPH.PAS 


Le signe — indique que le retour chariot précédent ne doit être saisi. Il ne sert 


qu'à la mise en page. 


PROGRAM GRAPHIC; 


{Pour executer ce programme, 


il faut le compiler en Option C 


OM et demander une START ADDRESS de $5000. apres compilatio 
n, quitter turbo pascal et executer le programme sous CPM} 


{ATTENTION en mode graphique, 
i de WRITELN} 


il ne faut pas fairede WRITE n 


CONST DEUX:ARRAY[0..7] OF BYTE=(1,2,4,8,16,32,64,128); 


TYPE PA=PACKED ARRAY[0..1] OF 0O.. 


MAGIC=RECORD 
CASE BOOLEAN OF 


255; 


TRUE: (INT: INTEGER) ; 


FALSE: (PTR:"PA); 
END; 


VAR ECRAN:PACKED ARRAY[0..8191] OF BYTE ABSOLUTE $3000; 


A,R:REAL; 
OX,OY,X, Y: INTEGER; 


FUNCTION PEEK (X:INTEGER) : INTEGER; 
VAR C:MAGIC; 
BEGIN 

C.INT:=X; 

PEEK:=C.PTR"{(0] 























































; POKEISEG9G, 9); A:=PEEK($E055) +PEEK($E050) +P 


PROCEDURE TEXT; 
VAR A:INTEGER; 
BEGIN 


A:=PEEK($E051) +PEEK($E054); POKE($E001,0); POKE(S$EOOD, 0); 


CLRSCR; 
END; 


PROCEDURE HGR; 
BEGIN 

GRAFIXON; 

FILLCHAR (ECRAN, 8192, O) 
END; 


PROCEDURE PLOT(X,Y:INTEGER) ; 

VAR D, I: INTEGER; 

BEGIN 
D:=Y MOD 64; 
I:=1024*(D MOD 8)+128*(D DIV 8)+40*(Y DIV 64)+(XDIV 7); 
ECRAN[(I]:=ECRANI[I] OR DEUXI[X MOD 7] 

END; 


PROCEDURE LINE (X1,Y1,X2, Y2: INTEGER) ; 
VAR XT,TX,XX,X,Y:REAL; 
C,I:INTEGER; 
BEGIN 
IF X1>X2 THEN BEGIN 
C:=X1; X1:=X2; X2:=C; 
C:=YŸ1z Yl:=Y27 Y2:=C 
END; 
IF X1=X2 THEN 
IF Y1<Y2 THEN FOR I:=Y1 TO Y2 D 
ELSE FOR I:=Y2 TO Y1 D 
ELSE IF Y1=Y2 THEN FOR I:=X1 TO 
ELSE BEGIN 
TX:=(Y2-Y1)/(X2-X1); XT:=ABS(1/TX); 


O P1 
oO 


X2 


IF XT>1 THEN XT:=1; X:=X1; Y:=Y1; XX:=TX 


*XT; 

REPEAT 
PLOT(TRUNC(X),TRUNC(Y)); 
X:=XHXT; Y:=Y+XX 


UNTIL X>X2 
END 
END; 
BEGIN 
HGR; 
R:=0.0; A:=0; OX:=140; OY:=95; 
REPEAT 


X:=TRUNC(140+R*COS (A) ); Y:=TRUNC(95+R*SIN(A)); 
LINE(OX,OY,X,Y); OX:=X; OY:=Y; 
R:=R+1.5; A:=A+1.5533; 
UNTIL (R>95) OR KEYPRESSED; 
READLN; TEXT 
END. 


Une application 


Une des limitations du 
TURBO-PASCAL est de 
ne pas permettre la 
gestion des graphiques. 
Ce petit programme y 
remédie, de facon 
rudimentaire car ses 
performances ne sont 
pas celles d'une routine 
en assembleur. 


Pour transférer le programme de 
la disquette Pom's vers une 
disquette CP/M sous le nom 
GRAPH.PAS, il est nécessaire 
d'avoir UNIVERSAL FILE 
CONVERSION (dans le cas 
contraire, à vos claviers !). Il faut 
donc transférer le fichier 
GRAPH.PAS puis passer sous 
CP/M et faire un REN 
GRAPH.PAS-GRAPHPAS. 
Ensuite, passer sous TURBO 
PASCAL, puis compiler le 
programme en option COM FILE 
en spécifiant une START 
ADDRESS de $5000. 


Le programme lui-même trace un 
petit dessin de démonstration, un 
carré qui tourne. Les procédures 
utilisables sont : 


HGR passe en mode graphique et 
efface l'écran. 


GRAFIXON passe en mode 
graphique sans effacer l'écran. 


TEXT passe en mode texte. 


PLOT(X,Y) met un point en 
X,Y à l'écran 


LINE(X1,Y1,X2,Y2) trace 
une ligne entre X1,Y1 et X2,Y2. 


Attention, une restriction : il ne 
faut pas faire de WRITE ni de 
WRITELN en mode graphique, 
sous peine de plantage. 
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N CO P OSEUR Bernard Hoyez, 
SUR le //c * Brno Férar 


es propriétaires d'un 
Apple //c ont sans doute 
été déçus en s'aperce- 
vant que le programme 
de Bernard Hoyez et Jean-luc Naïl 
permettant de composer automati- 
quement un numéro de téléphone 
(Pom's n° 22), ne pouvait pas 
fonctionner sur leur machine. 
Qu'ils se réjouissent, voici une 
version d'AGENDA et de 
COMPOSEUR qui permet de 
l'adapter à votre machine favorite. 


Pour cela, on utilisera le port série 
n° 2 "consacré" normalement au 
modem et plus particulièrement le 
niveau logique DTR “Data 
Terminal Ready", qui se trouve 
sur la broche 1 du connecteur 
(voir schéma). La valeur de cette 
sortie est soit -12V soit +12V. 
C'est cette sortie que l'on va 
utiliser à la place de ANO pour 
commander le relais, bien que les 
valeurs de AND soient 0 et +5V. 


Pour protéger le transistor on 
rajoutera une diode en dérivation. 


Pour l'alimentation, la meilleure 
solution est d'utiliser une pile (de 
4,5 ou 9 volts suivant le relais 
utilisé). Le reste du schéma est 
identique. 


Pour commander le niveau de la 
broche DTR, il faut utiliser le 
registre de commande du port 
considéré (adresses : Port 1 = 
$CO9A - Port 2 = $COAA). 
Suivant la valeur de ce registre, 
DTR et par suite la tension de la 
broche 1, passe d'un niveau à 
l'autre (voir le tableau). 

Les modifications à apporter au 
programme AGENDA sont les 
suivantes : 


380 POKE 49322,8 Prise de ligne 
550 POKE 49322,0 Coupe la ligne 





ss 


Connecteur 150 Q 
Port série n° 2 L2 


2N2219 


Schéma de branchement 


Signification 


Data Terminal Ready 
Transmit Data 

Masse mécaniquelsignal 
Read Data 

Data Set Ready 


Les broches du connecteur série 





Adresse Adresse 


hexadécimale décimale 
Port 1 | $CO9A | 49306 
Port 2 $COAA 49322 





Signification des bits du registre de commande 
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: 90 ONERR GOTO 570 340 CALL - 868: PRINT TS(I,1),TS(I 
Pour COMPOSEURS voir le 100 PRINT " COMPOSITION AUTOMAT 2) di ‘ 
listing du nouveau source. IQUE DE" 350 GoTo 250 
Remarque : on a utilisé le port 110 PRINT ” NUMERO TELEPHON 360 XS = TS(I,2) 
D'OR TRE pps AMIE ONE mu 
' . 1 Lie LS ,8: rise de gne 
de changer l'adresse du registre 130 DIM TS$(100, 2) 390 FOR I = 1 TO 700: NEXT I 
de commande. 140N=0 400 HOME 
Bibliographie : The Apple lle 19 N=N+1 410 PRINT : PRINT “JE COMPOSE LE NUM 
Reference Manual - Volume 1. DO ORNPS EE cr 
170 READ TS(N,J) 420 FOR I = 1 TO LEN (X$) 
180 NEXT J 430 À = ASC ( MIDS (XS,I,1)) + 128 
190 GOTO 150 440 POKE 7,A 
CG 200 VTAB (8) 450 CALL 768 
210 PRINT "UTILISEZ LES FLECHES ";: 460 PRINT CHRS (A); 
INVERSE : PRINT "=>";: NORMAL : 470 FOR T = 1 TO 600: NEXT T 
PRINT " ET ";: INVERSE : PRINT " 480 NEXT I 
<=": NORMAL 490 HTAB 1: VTAB 5: PRINT "DECROCHEZ 
220 PRINT "POUR SELECTIONNER LE NOM LE COMBINE, MAINTENANT..." 
Programme DE L'ABONNE" 500 VTAB 8: PRINT "..... AVANT" 
6 , 230 PRINT : PRINT "VALIDEZ AVEC LA T 510 FOR I = 400 TO 1 STEP - 1 
AGENDA OUCHE RETURN" 520 VTAB (15): HTAB (11) 
240I=0 530 PRINT INT (I / 50);" SECONDES" 
10 REM ***COMPOSEUR DE NUMERO* ** 250 GET AS 540 NEXT I 
20 REM * par * 260 A$ = ASC (A$) 550 POKE 49322,0: REM Coupe 
30 REM * Bernard HOYEZ * 270 IF A$ < > 13 AND A$ < > 21 AND 560 GOTO 580 
40 REM * et Jean-Luc NAIL * A$ < > 8 THEN 260 570 IF PEEK (222) = 42 THEN 200 
50 REM *##RARRRARRRRRRARARARAR EX 280 IF A$ = 13 THEN 360 580 HOME : RESTORE 
60 REM ==>ENTRER LES NOMS ET LES NUM 290 IF A$ = 21 THEN I = I + 1 590 PRINT "...PRET POUR UN AUTRE APP 
EROS EN DATA À LA SUITE DES AUTR 300 IF A$ = 8 THEN I = I - 1 EL ...": GOTO 140 
ES 310 IFI>N-1THNI=N-I 600 DATA RENSEIGNEMENTS, 3612 
70 REM #*##ARRRRRRRRARAHRÉEAAEX 320 IFI<1THNI=I1 620 DATA AUTRES RENSEIGNEMENTS, 3611 
80 HOME 330 VTAB 15 630 DATA JULIETTE, 12345678 
Source 21 LDA CHIFFRE 45 STY COMREG 
; s 22 CMP #"0"-1 46 JSR WAIT 
23 BCC ERROR 47 LDA #108 
COMPOSEUR.S' 2cc. ERROR # LA 4100 
Assembleur Big Mac 25 BCS ERROR 49 STY COMREG 
26 50 JSR WAIT 
1 RRARRRRRRRRARRÉRRRRRRRRRRRÉRR 27 AND #$1111 51 RTS 
2% Là filtrage 
3 * Composeur # 28 BNE COMPOSE 
4 * * 29 LDA #10 
SD ORRAARRARRRARÉRÉRÉARRÉERÉXEX : CHIFFRE=0 => <A>=10 
6 30 COMPOSE TAX 7 . . 
1 en dorées © 3 Récapitulation 
8 32 BOUCLE = * $ O OS 3 
9 33 JSR PULSE MP EUR 
10 * ADRESSE 34 DEX 
m3 35 BNE BOUCLE Après avoir saisi ce code sous 
12 COMREG = $COAA ;Port 2. 36 RTS moniteur, vous le sauvegarderez par 
$CO9A pour le port 1 37 BSAVE COMPOSEUR,A$300,L$32 
13 WAIT = $SFCAB8 38 ERROR = * 
14 CHIFFRE = 7à :ce n'etait pas un chiffre 0300- A5 07 C9 AF 90 12 C9 BA 
15 ERREUR = 8 39 LDA #5FF 0308- BO 0E 29 OF DO 02 A9 OA 
16 40 STA ERREUR 0310- AA 20 1D 03 CA DO FA 60 
17 ORG 5300 41 RTS 0318- A9 FF 85 08 60 A9 9F A0 
18 42 0320- 00 8C AA CO 20 A8 FC A9 
19 ENTREE = * 43 PULSE LDA #159 0328- 6C A0 08 8C AA CO 20 A8 
20 44 LDY #$00 0330- FC 60 


Dès le 20 avril, dans votre bibliothèque : 


Le Recueil 3 
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GENUTILE : 





Jean-Claude Lengrand 


des utilitaires indispensables dans une 





ENUTILE est un 
ensemble de PROCE- 
DURES et FUNC- 
TIONSs d'intérêt général 
constituant une INTRINSIC 
UNIT au sens du compilateur 
PASCAL, et qui est incorporé à la 
SYSTEM LIBRARY sous les 
numéros de SEGMENTS 16 
(programme) et 17 (données). 


GENUTILE définit un TYPE 
CHOIDECA:SET OF CHAR, et 
une variable ALFANUM de ce 
type. ALFANUM désigne 
l'ensemble des caractères 
alphanumériques depuis " " 
(espace) jusqu'à "-" (caret). 


GENUTILE définit diverses 
variables de TYPE CHAR qui, 
lorsqu'elles sont envoyées sur 
OUTPUT, ont l'effet suivant : 


SON émet un BIP 

BS recul du curseur 

EFL efface la fin de ligne 

. EFB efface le bas de l'écran 

INV met l'affichage en mode 
inverse 

NORM met l'affichage en mode 
normal 

CR envoie le curseur à la 
ligne 

HOME efface l'écran ou va à la 
page 


GENUTILE définit aussi ESC et 
FLD (flèche droite) de TYPE 
CHAR. Toutes ces variables sont 
définies comme le CHR ) de 7, 
N'AiLTLUS OÙ 23, F0, 27, 721 
respectivement. 


PROCEDURE 
PRENRETURN 


Attend qu'un <RETURN> ait été 
frappé au clavier. 


Programme ‘GENUTILE’ 


(* LENGRAND, LE 9/12/82 *) 
(#2) 
(*$S+*) 
UNIT GENUTILE;INTRINSIC CODE 16 DATA 17; 


INTERFACE 


TYPE CHOIDECA=SET OF CHAR; 
VAR BS, SON, EFL, EFB, INV, NORM, CR, ESC, FLD, HOME : CHAR; 
ALFANUM: CHOIDECA; 


PROCEDURE PRENRETURN; 

FUNCTION PRENCAR (BONSET : CHOIDECA) : CHAR; 

FUNCTION OUI:BOOLEAN; 

PROCEDURE MESSAGE (Y : INTEGER;S: STRING) ; 

PROCEDURE ALARME (S: STRING) ; 

PROCEDURE PRENCHAINE (LONGMAX : INTEGER,; BONSET:CHOIDECA; VAR S:STRING) ; 

PROCEDURE ENTIER (LONGMAX : INTEGER; VAR S:INTEGER) ; 

PROCEDURE CONTINU (Y:INTEGER) ; 

PROCEDURE ALITEXT (LONGMAX : INTEGER; S : STRING) ; 

PROCEDURE SAISIE(X, Y, LONGMAX : INTEGER, BONSET : CHOIDECA; LIBELLE : STRING; 
VAR S:STRING) ; 


FUNCTION PEEK (ADRESSE : INTEGER) : INTEGER; 
PROCEDURE POKE (ADRESSE, CONTENU: INTEGER) ; 


PROCEDURE ERROR(L:INTEGER; VAR S:STRING) ; 

PROCEDURE VALBOOL(S:STRING; VAR N:BOOLEAN) ; 

PROCEDURE VALREEL (S:STRING; VAR K:REAL) ; 

PROCEDURE VALENT (S:STRING; VAR K:INTEGER) ; 

PROCEDURE STRBOOL(N:BOOLEAN;L:INTEGER; VAR S:STRING; VAR ERREUR: INTEGER) ; 
PROCEDURE STRFIX(N:REAL;L,D:INTEGER; VAR S:STRING; VAR ERREUR: INTEGER) ; 
PROCEDURE STRFLOT(N:REAL;L,D:INTEGER; VAR S:STRING; VAR ERREUR: INTEGER) ; 
PROCEDURE STRENT (N, L:INTEGER; VAR S:STRING; VAR ERREUR: INTEGER) ; 


IMPLEMENTATION 


PROCEDURE PRENRETURN; 
VAR SORT :CHAR; 
BEGIN 
REPEAT 
READ (KEYBOARD, SORT) 
UNTIL EOLN (KEYBOARD) 
END; 


FUNCTION PRENCAR; 


VAR CH : CHAR; 
BON :BOOLEAN; 
BEGIN 
REPEAT 


READ (KEYBOARD, CH) ; 
IF EOLN(KEYBOARD) THEN CH:=CR; 
BON:=CH IN BONSET; 
IF NOT BON THEN WRITE (SON) 
ELSE IF CH IN [" '..'"'] THEN WRITE(CH) 
UNTIL BON; 
PRENCAR :=CH 
END; 


FUNCTION OUI; 
BEGIN 

OUI : =PRENCAR(['Y','"O','N']) IN ['Y','0'] 
END; 


PROCEDURE MESSAGE; 
BEGIN 
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FUNCTION PRENCAR 
(BONSET:CHOIDECA): 
CHAR 


Renvoie un caractère frappé au 
clavier. Ce caractère doit faire 
partie de BONSET, défini 
préalablement comme un SET OF 
CHAR, sinon, émet un BIP et 
attend un autre caractère. 


FUNCTION 
OUI:BOOLEAN 


Attend un caractère au clavier et 
renvoie TRUE s'il s'agit de O ou 
de Y et renvoie FALSE s'il s'agit 
de N. Émet un BIP et attend un 
autre caractère dans tous les autres 
cas: 


PROCEDURE MESSAGE 
(Y:INTEGER;S:STRING) 


Écrit le message S à partir du 
début de la ligne Y (0<Y<23) et 
efface la fin de la ligne. Le 
curseur reste immédiatement après 
le message. 


PROCEDURE 
ALARME(S:STRING) 


Efface l'écran sauf la 1ère ligne, 
affiche le message S et attend un 
<RETURN>. 


PROCEDURE 
PRENCHAINE 
(LONGMAX:INTEGER; 
BONSET:CHOIDECA; 
VAR S:STRING) 


Saisit au clavier la chaine S, avec 
limitation à LONGMAX carac- 
tères choisis dans BONSET. Si 
l'on répond par un simple 
<RETURN», la valeur précédente 
de S est conservée. La correction 
par la flèche gauche (BS) est 
permise. 


PROCEDURE 
ENTIER(LONGMAX: 
INTEGER; VAR 
S:INTEGER) 


Saisit au clavier l'entier positif, 
avec limitation à LONGMAX 
caractères choisis dans ‘"0'..9". 
Si l'on repond par un simple 
<RETURN)», la valeur précédente 


GOTOXY (0, Y);WRITE({S,EFL) 
END; 


PROCEDURE ALARME; 

BEGIN 
GOTOXY (0, 1} ;WRITE (SON, EFB) ; 
MESSAGE(10,S); 
MESSAGE (12, "FAITES <RETURN> !); 
PRENRETURN 

END; 


PROCEDURE PRENCHAINE; 
(#2) 
{* SAISIT UNE CHAINE DE CARACTERES AVEC 
LONGUEUR MAXI ET VALEUR PAR DEFAUT *) 
FAR) 
VAR S1 :STRING{1]; 
CONT :STRING; 
BEGIN 
Siimr ee 
CONT:='!} 
REPEAT 
IF LENGTH(CONT)=0 THEN S1/{1]:=#PRENCAR(BONSET+{[CR]} 
ELSE IF LENGTH(CONT)=LONGMAX THEN S1{1]:=PRENCAR([CR, BS]) 
ELSE S1{1]:=PRENCAR(BONSET+{CR, BS]}); 
IF S1{1] IN BONSET THEN CONT:=CONCAT (CONT, S1) 
ELSE IF S1{1]=BS THEN 
BEGIN 
WRITE(BS, ' ",BS); 
DELETE (CONT, LENGTH (CONT),1) 
END; 
UNTIL S1[1]=CR; 
IF LENGTH (CONT) <>0 
THEN S:=CONT 
ELSE WRITE(S) 
END; 


PROCEDURE ENTIER; 
(#2) 
{* SAISIT UN NOMBRE ENTIER POSITIF *) 
tr) 
VAR S1 :STRING{1]; 
F :INTEGER; 
CONT :STRING; 
OKSET :CHOIDECA; 
BEGIN 
OKSET:={["0".."9'];S1:=" ':CONT:='"!; 
REPEAT 
IF LENGTH (CONT)=0 THEN S1{(1]:=PRENCAR(OKSET+{CR]) 
ELSE IF LENGTH (CONT)=LONGMAX THEN S1/{1]:"PRENCAR([CR,BS]) 
ELSE S1{[1]:=PRENCAR(OKSET+{CR, BS]); 
IF S1{1] IN OKSET THEN CONT:=CONCAT(CONT, S1) 
ELSE IF S1{1]=BS THEN 
BEGIN 
WRITE(BS, " ",BS); 
DELETE (CONT, LENGTH {CONT), 1) 
END; 
UNTIL S1{1]=CR; 
IF LENGTH (CONT) <>0 THEN 
BEGIN 
S:=0; 
FOR I:=1 TO LENGTH(CONT) DO 
BEGIN 
S:=S*10;S:=S+(ORD(CONT[I])-ORD('0'})} 
END; 
END ELSE WRITE(S) 
END; 


PROCEDURE CONTINU; 
(77 
{* INVITE L'OPERATEUR À CONTINUER *}) 
| Ca 
BEGIN 
WRITE (INV) ; 
MESSAGE (23, "FAIRE <RETURN>POUR CONTINUER); 
WRITE (NORM) ; 
PRENRETURN; 
GOTOXY(0,Y); 
WRITE (EFB) 
END; 
(#91 
PROCEDURE ALITEXT; 
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de S est conservée. La correction 
par la flèche gauche (BS) est 
permise. 


PROCEDURE 
CONTINU(Y:INTEGER) 


Affiche sur la dernière ligne de 
l'écran une invitation à frapper 
<RETURN> pour continuer, 
attend <RETURN>, envoie le 
curseur en (0,Y) et efface le bas 
de l'écran. 


PROCEDURE 
ALITEXT(LONGMAX: 
INTEGER;S:STRING) 


Affiche le texte S cadré à gauche 
sur LONGMAX positions, après 
troncature si nécessaire. 


PROCEDURE 
SAISIE(X,Y,LONGMAX: 
INTEGER;BONSET: 
CHOIDECA;LIBELLE: 
STRING); VAR S:STRING) 


Même fonction que PREN- 
CHAINE, mais avec écriture de 
LIBELLE au point de l'écran 
(X,Y), juste avant la saisie. La 
valeur par défaut est affichée 
pendant la saisie, elle est 
éventuellement tronquée à 
LONGMAX caractères. 


FUNCTION 
‘PEEK(ADRESSE: 
INTEGER) 


Renvoie le contenu décimal de la 
mémoire ADRESSE. 


PROCEDURE 
POKE(ADRESSE, 
CONTENU:INTEGER) 


Met CONTENU dans la mémoire 
ADRESSE. Aucun test n'est 
effectué sur la valeur des 
paramètres. C'est une procédure à 
utiliser avec précaution. 


PROCEDURE 
ERROR(L:INTEGER; VAR 
S:STRING) 


Remplit une chaîne S de longueur 
L avec L astérisques. 


(Et) 

{= EDITE UNE CHAINE CADREE À GAUCHE *) 

(#2) 

BEGIN 
IF LENGTH(S)>LONGMAX THEN S:=COPY(S, 1, LONGMAX) ; 
WRITE(S, "":LONGMAX-LENGTH (S) } 

END; 

(*+) 

PROCEDURE SAISIE; 

(#*) 

{* SAISIT UNE CHAINE DE CARACTERES EN UN POINT DONNE 

DE L'ECRAN, AVEC LONGUEUR MAXI ET VALEUR PAR DEFAUT *) 

Ga 

BEGIN 
IF LENGTH(S)>LONGMAX THEN S:=COPY(S, 1, LONGMAX) ; 
GOTOXY (X, Y) ;WRITE(LIBELLE) ; ALITEXT(LONGMAX, S) ; 
GOTOXY (X+LENGTH (LIBELLE), Y); 
PRENCHAINE (LONGMAX, BONSET, S) ; 
WRITE ("'":LONGMAX-LENGTH (S) ) 

END; 


FUNCTION PEEK;EXTERNAL; 
PROCEDURE POKE;EXTERNAL; 


(**) 
PROCEDURE ERROR; 
(#*#} 
{* REMPLIT UNE CHAINE S DE L ASTERISQUES *) 
(ax) 
VAR I:INTEGER; 
BEGIN S:='!} 
FOR I:=1 TO L DO S:=CONCAT('*!,S); 
END; 


(F#) 
PROCEDURE VALBOOL; 
(#7) 
{(*  CONVERTIT UNE CHAINE EN BOOLEEN *) 
(#8) 
BEGIN 
IF LENGTH(S)<>0 THEN 
CASE S{1] OF 
"T', "V', 'Y!, 0", '1':N:=TRUE; 
"E','N!', 'O':N:=#FALSE 
END 
END; 
| éup | 
PROCEDURE VALREEL; 
{**) 
(*  CONVERTIT UNE CHAINE EN REEL *) 
Éd 
TYPE PARTIE= (BLK, SGN, ENT, DEC, SEXP, EXPO) ; 


VAR REGION :PARTIE; 
SIGNE, PUISS, I,L :INTEGER; 
FAC :REAL; 

C : CHAR; 


PROCEDURE CALCULE; 
VAR I:INTEGER; 
BEGIN 
IF PUISS<-37 
THEN K:=0.0 
ELSE IF PUISS>37 
THEN K:=]1.01E37 
ELSE IF PUISS<O 
THEN FOR I:=1 TO -PUISS DO K:=K/10.0 
ELSE FOR I:=1 TO PUISS DO K:=K*10.0 
END; 


BEGIN 
K:=0.0;SIGNE:="]1;FAC:=1.0;PUISS:=0; 
REGION :=BLK};L:=LENGTH (S); 

IF L=0 THEN EXIT(VALREEL) ; 
FOR I:=1 TO L DO 
BEGIN C:=S{I]; 
CASE REGION OF 


BLK :BEGIN 
IF NOT(C IN ["!,"-1,1#t,1.1,t0".."9t])]THEN EXIT{VALREEL); 
CASE C OF 
"+'":REGION:=SGN; 


"-!:BEGIN 
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PROCEDURE 
VALBOOL(S:STRING; VAR 
N:BOOLEAN) 


Si S commence par Y,O,T,V,1, 
rend N égal à TRUE. 

Si S commence par N,F,0, rend 
N égal à FALSE. 

Laisse N inchange dans les autres 
cas. 


PROCEDURE 
VALREEL(S:STRING; VAR 
K:REAL) 


Renvoie dans K la valeur réelle 
représentée par la chaîne S. 
L'interprétation s'arrête dès que la 
procédure trouve un caractère 
inattendu, comme la fonction 
VAL du BASIC. En particulier, 
elle s'arrête sur le premier espace 
rencontré. La forme avec 
exposant est reconnue. Le nombre 
peut être précédé de 1 ou 
plusieurs espaces placés avant 
tout caractère significatif. La 
forme de l'exposant est libre. Il 
peut être absent. Le point décimal 
peut être absent. Le nombre peut 
être précédé de un ou plusieurs 
signes qui se combinent. Ex: 
+-+3.14E sera interprété comme 
-3.14 (exposant-0). S peut être 
une chaîne vide. K vaut alors 0. 
Une valeur absolue inférieure à 
1E-37 est considérée comme 
nulle. Une valeur absolue 
supérieure à 1E37 est prise égale à 
1.01E37, un test sur la valeur 
renvoyée peut permettre de 
détecter un dépassement éventuel. 


PROCEDURE 
VALENT(S:STRING; VAR 
K:INTEGER) 


Remplit la même fonction que 
VALREEL, notamment pour la 
reconnaissance d'un nombre sous 
n'importe qu'elle forme, mais 
renvoie la valeur entière la plus 
proche du nombre représenté. Les 
entiers dont la valeur absolue 
excède MAXINT, soit 32767, 
sont ramenés à +-32767. 


PROCEDURE 
STRBOOL(N:BOOLEAN; 
L:INTEGER; VAR 
S:STRING; VAR 
ERREUR:INTEGER) 





SGN 


ENT 


‘0!,"'1 


DEC 


REGION:=SGN; SIGNE :=-SIGNE 
END; 
07, ‘1 LE" «24: LE 11 ‘4 LE ‘5 Li A" LEE 19':BEGIN 
REGION:=ENT,; K:=ORD {C)-ORD({'0!) 
END; 
". !:REGION:=DEC; 
END; 
END; 
:BEGIN 
IFOCNOT € CUIN fier, CHR R, FO 
CASE C OF 
f"-!:SIGNE:=-SIGNE; 
‘0’, 1 ,, 12%, v3!, ‘4 r, vit, ‘6? 17%, "gr, "9':BEGIN 
REGION :=ENT;K:=SIGNE* (ORD (C)-ORD('0'}} 
END; 
". !":REGION:=DEC; 
END; 
END; 
: BEGIN 
TE NOT CIN L'NERMON,S 
CASE C OF 
", ":REGION:=DEC; 
'E':REGION:=SEXP; 


"9']) THEN EXIT(VALREEL) ; 


"9']) THEN EXIT(VALREEL); 


1,121,131,141,151,161,'7','8','9':K:=K*10.0+SIGNE* (ORD(C)-ORD('O')A 


END; 
END; 
: BEGIN 
IF NOT( C IN ['0"'.. 
CASE C OF 
"E':REGION:=SEXP; 
‘0','1 F 2!, "3°, 4!, 5e, 16", 17!,'8','9':BEGIN 
FAC:=FAC/10.0;K:=K+SIGNE*FAC* (ORD {C)-ORD('0O'))}) 
END; 
END; 
END; 


"9','E']) THEN EXIT(VALREEL) ; 


SEXP : BEGIN 


IF NOTU CIN [1,0 107. 
IF C='-!' THEN SIGNE:=-1 
ELSE SIGNE:=1; 
IF C IN {'O'..'9'] THEN PUISS:=#SIGNE* (ORD(C)-ORD('0')); 
REGION :=EXPO 
END; 


"9']) THEN EXIT(VALREEL); 


EXPO : BEGIN 


END ( 
END; ( 
CALCULE; 
END; 


(#7 


IF (NOT( C IN ['0'..'9'])) OR (ABS(PUISS)>MAXINT DIV 10) 
THEN BEGIN CALCULE;EXIT(VALREEL) END; 
PUISS :=PUISS*10+SIGNE* (ORD(C)-ORD('0'}} 
END; 
* CASE *) 
# FOR #) 


PROCEDURE VALENT; 


(°#2 

{(*  CONVERT 

(7 

VAR X:REAL; 

BEGIN 
VALREEL(S 


IT UNE CHAINE EN ENTIER *) 


XX); 


IF ABS(X)>MAXINT 
THEN IF X>0.0 THEN K:=MAXINT 


ELSE K: 
END; 


(+) 
PROCEDURE S 
(*+) 
{* CONVER 
(++) 


ELSE K:=-MAXINT 
=ROUND (X) 


TRBOOL; 


TIT UN BOOLEEN EN CHAINE *) 


VAR I:INTEGER; 
BEGIN ERREUR :=0; 


IF N 


THEN S:="VRAlI' 
ELSE S:="FAUX"'; 


IF L<l THEN BEGIN ERREUR:=1;S:='';EXIT(STRBOOL) END; 


IF L> 


80 THEN L:=80; 


IF L>4 THEN FOR I:=5 TO L DO S:=CONCAT(" ',S); 
IF L<4 THEN S:=COPY(S,1,L) 
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renvoie une chaîne de longueur L 
contenant VRAI ou FAUX, 
éventuellement tronquée ou cadrée 
à droite, selon la valeur de N. 
ERREUR prend la valeur 1 si 
L<1, et O dans les autres cas. 


PROCEDURE 
STRFIX(N:REAL;L, 
D:INTEGER:VAR 
S:STRING; VAR 
ERREUR:INTEGER) 


Renvoie une chaîne S de longueur 
L représentant le nombre réel N 
avec D décimales, en format 
FIXE : -xxx.yy 

Si L<3 ou D<0 ou L<D+2, on 
obtient ERREUR=1. 

Si le nombre est trop grand (/n/ 
>32767), on obtient l'erreur 2. 

Si le nombre est trop grand pour 
le nombre de caractères total 
imposé, on obtient l'erreur 3. 
Dans les autres cas, ERREUR 
reste nul. 

Si L est supérieur à 80, il est 
considéré comme étant égal à 80, 
sans que cela soit signalé. 

Le nombre de décimales peut être 
réduit d'office par la procédure si 
la partie décimale est représentée 
par un entier superieur à 32767. 
Aucune erreur n'est alors 
signalée, et le nombre total de 
caractères est respecté. 

Si l'on est sûr que le nombre est 
positif, on peut ne pas prévoir de 
place pour le signe. 


PROCEDURE 
STRFLOT(N:REAL; 
L,D:INTEGER; VAR 
S:STRING; VAR 
ERREUR:INTEGER) 


Même fonction que STRFIX, 
mais la chaîne contient le nombre 
en représentation flottante : 
-1.2344E+03 avec un chiffre 
avant le point décimal et un 
exposant de 4 caractères. 

L'erreur 2 de STRFIX ne peut 
pas se produire. Les conditions 
d'apparition de l'erreur 1 sont : 
L<7 ou D<0 ou L<D+6. 


PROCEDURE 
STRENT(N,L:INTEGER; 
VAR S:STRING:; 

VAR ERREUR:INTEGER) 


Renvoie une chaîne de longueur L 





PROCEDURE STRFIX; 
Fe) 
(*  CONVERTIT UN REEL EN CHAINE DE TYPE -XXXX.XX *) 
VAR I,J :INTEGER; 
NEGATIF : BOOLEAN; 
ND,EX :REAL; 
s1 :STRING; 
BEGIN 
IF L>80 THEN L:=80; 
IF (L<3) OR (D<0) OR (L<D+2) 
THEN BEGIN ERROR(L, S) ;ERREUR:=1;EXIT(STRFIX) END 
ELSE ERREUR:=0; 
NEGATIF:=(N<0.0);N:=ABS{N); 
IF N>32767.0 THEN 
BEGIN ERROR(L, S) ;ERREUR:=2;EXIT(STRFIX) END; 
IF D=0 
THEN 
BEGIN 
STR (ROUND (N),S1);S:="" 
END 
ELSE 
BEGIN 
STR(TRUNC (N),S1); 
REPEAT 
EX:=1;FOR I:=1 TO D DO EX:=EX*10.0; 
ND:=EX* (N-TRUNC (N) ) ;D:=D-1; 
UNTIL ND<=32767.0; 
J:="ROUND (ND) ; STR(J, S) ;D:=#D+1; 
FOR J:=LENGTH(S)+1 TO D DO S:=CONCAT('0',S); 
END; 
S:=CONCAT(S1, ".',S); 
IF NEGATIF THEN S:=CONCAT('-",S); 
IF LENGTH(S)>L THEN 
BEGIN ERROR(L, S) ;ERREUR:=3;EXIT(STRFIX) END; 
FOR J:=LENGTH(S)+1 TO L DO S:=CONCAT('" ',S); 
END; 


(7) 

PROCEDURE STRFLOT; 

(2) 

{*  CONVERTIT UN REEL EN CHAINE DE TYPE -XXXX.XXE+YY *) 
fe 


VAR S1 : STRING; 
EX :INTEGER; 
NEGATIF : BOOLEAN; 

BEGIN 


IF L>80 THEN L:=80; 
IF (L<7) OR (D<0) OR (L<D+6) 

THEN BEGIN ERROR(L,S) ;ERREUR:=1;EXIT(STRFLOT) END 

ELSE ERREUR :=0; 
NEGATIF := (N<0.0) ;N:=ABS (N) ;EX:=0; 
IF N<>0.0 THEN 

BEGIN 

WBILE N>=10.0 DO 
BEGIN N:=N/10.0;EX:=EX+1 END; 
WHILE N<1.0 DO 
BEGIN N:=#N*10.0;EX:=EX-1 END; 

END; 
STR(ABS(EX),S); 
IF ABS(EX)<10 THEN S:=CONCAT('0',S); 
IF EX<0 THEN S:=CONCAT('E-"',S) 

ELSE S:=#CONCAT('E+',S); 
IF NEGATIF THEN N:=-N; 
L:=L-4; 
STRFIX(N, L, D, S1, ERREUR) ; 
S:=CONCAT(S1,S) 
END; 


f##) 
PROCEDURE STRENT,; 
| aber 
{*  CONVERTIT UN ENTIER EN CHAINE *) 
ba | 
VAR I,J:INTEGER; 
BEGIN 
IF L>80 THEN L:=0; 
ERREUR : =0; 
STR(N, S) ;I:=LENGTH (S) ; 
IF L>I THEN FOR J:=1 TO L-I DO S:=CONCAT(" 
IF L<I THEN BEGIN ERROR(L, S) ;ERREUR:=1 END 
END; 


",S); 


{* INITIALISATION *) 
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représentant l'entier N. L'erreur 1 
se produit si L<1 ou si L>80. 


Les PROCEDURES PREN- 
CHAINE et SAISIE peuvent 
provoquer des diagnostics à la 
compilation si la paramètre actuel 
S est une chaîne de longueur 
déclarée (STRING{xx}). Il faut 
alors compiler le programme (ou 
la fraction de programme 
concernée) avec l'option (*$V-*) 
du compilateur pour éviter le 
diagnostic. 

En cas d'erreur dans les 
procédures STRxxxx, la chaîne 
qui est renvoyée ne contient que 
des *** mais cela n'entraîne pas 
d'erreur d'exécution. 


En cas d'espace en trop dans ces 
procédures, les chaînes sont 
cadrées à droite. 


La version PASCAL de 
GENUTILE (obtenue après 
transfert de la disquette Pom's et 
nommée alors UTIDIV.TEXT) 
déclare PEEK et POKE comme 
étant EXTERNAL. PEEK et 

POKE ont été écrits en 

assembleur (fichier PEEKPOKE. 

TEXT). On doit donc 

+ compiler UTIDIV.TEXT, 

* assembler PEEKPOKE. 
TEXT, 

+ _linker PEEKPOKE.CODE 
dans UTIDIV.CODE pour 
obtenir GENUTILE.CODE, 

+ _ placer GENUTILE.CODE 
dans SYSTEM.LIBRARY par 
l'utilitaire LIBRARY.CODE. 


x, 
“ 
“ 


+ 
a 
+ 
+ 
* 
+ 
#4 
4 
LA 
4 
4 
#4 
C4 
LA 
# 
+ 
#4 
+ 
# 
+ 
+ 
# 
+ 
+ 
+ 
+ 


PPT NPNTIS ENTER PME EUREFE EEE 


Accompagné d'une cinquantaine de pages de documentation, Oisk Manager permet de recréer 

les commandes du Dos, redéfinir l'organisation d'une disquette, grâce à un jeu d'instructions qui 
en fait un langage simple d'accès à la disquette. Il offre également un programme simple d'édition 
à l'aide de commandes évoluées. 4 utilitaires figurent aussi sur la disquette : 





BEGIN 
HOME :=CHR(12); ESC :=CHR(27); EFL:=CHR(29); BS 


CR :=CHR(13); FLD:=CHR(21}); SON :=CHR(7}); 


NORM:=CHR(20); EFB:=#CHR(11); 
ALFANUM:={" "..'*1] 


:=CHR(8); 
INV:=CHR(18); 


Les identificateurs déclarés par GENUTILE sont : 


ALFANUM ALARME ALITEXT 
CHOIDECA CONTINU CR 
EFL ENTIER ERROR 
HOME INV MESSAGE 
OUI PEEK POKE 
PRENCHAINE PRENRETURN SAISIE 
STRBOOL STRENT STRFIX 
VALBOOL VALENT VALREEL. 
Source LA 
‘PEEKPOKE.TEXT’ kr 
.PROC POKE, 2 

. FUNC PEEK, 1 RET .EQU 0 
RET .EQU O0 ADR .EQU 2 
ADR .EQU 2 VAL .EQU 4 

PLA PLA 

STA RET STA RET 

PLA PLA 

STA RET+1 STA RET+1 

PLA PLA 

PLA STA VAL 

PLA PLA 

PLA PLA 

PLA STA ADR 

STA ADR PLA 

PLA STA ADR+1 

STA ADR+1 LDX #0 

LDX #0 LDA VAL 

TXA STA CADR,X 

PHA LDA RET+1 

LDA GADR,X PHA 

PHA LDA RET 

LDA RET+1 PHA 

PHA RTS 

LDA RET END 


Oisk Manager, le Dos en Kit 


de Dan Steerey 


FAC LCERE OPEN METtTETCÉ ECC CC CCC TESTS 


Utili-disque : reconstruction d'une disquette détruite, Vérification, Plan d'occupation 
Ultra-copie : pour un backup particulièrement rapide 

Edicat : Edition du catalogue, classement des fichiers, Titres. 

Muiti-disque : pour le classement de tous vos programmes (tri instantané). 


BS 


STRFLOT 


STE D 2e le 8 0e EE de fe ie b D 0e de ie ee 0e, Ve EN 


D D'OUDS DSRIT IDR SOS DOI PIED USUS SUSND DL DD LOS SP IIRNINE ANS RE AIECR PSP EN IN AN TOP TENENECINPIPIEIR OP VEINE CAR, 
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u'est-ce qu'un formateur 

de programme Apple- 

soft ? C'est une routine 

qui affiche ou imprime 
un programme Basic pour en 
faciliter la lecture. La mise au 
point en sera donc facilitée et, une 
fois terminée, on obtient une 
documentation d'allure profes- 
sionnelle. 


Inspiré d'une routine écrite 
elle-même en Basic dans 
Call-Apple, FORMATEUR est 
réalisé entièrement en assembleur 
pour des raisons évidentes de 
rapidité. Une fois chargé en 
mémoire, il peut être utilisé à tout 
moment. 


Le programme Applesoft est listé 
de la façon suivante: 


* une seule instruction par ligne 
(les ‘:’ excédentaires entre 
deux instructions sont 
ignorés) ; 

* une ligne blanche entre deux 
lignes de programme ; 

+ décalage de 4 caractères dans 
les boucles FOR-NEXT\; 
remplacement des NEXT 
X,Y,Z par NEXT X : NEXT 
Y :NEXT.Z;: 

+ décalage de 4 caractères après 
THEN ; 

+ décalage de 4 caractères pour 
les instructions dont la 
longueur dépasse une ligne 
(sauf cas de force majeure, les 
mots ne sont pas coupés) ; 

° en début de ligne, on rajoute 
LET avant l'affectation d'une 
variable. 


Bien entendu, le programme listé 
n'est absolument pas modifié par 
FORMATEUR. 


Le format par défaut est 80 
colonnes sur 66 lignes, mais 
l'utilisateur a la possibilité de 
modifier ces valeurs. Le saut de 
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page et la pagination sont 
automatiques. Enfin, on peut 
également imprimer un titre et une 
date. 


Utilisation 


Le programme se charge par 
BRUN FORMAT. Les commandes 
disponibles sont : 


€L 

Liste l'ensemble du programme à 
l'écran. Comme la commande 
LIST de l'Applesoft, on peut la 
faire suivre d'un numéro de 


ligne : 

&L 10 sont des 

&L 10,20 formats 

&L 10, acceptés 

&L ,10 

&LP 

Liste sur l'imprimante. Le format 
est identique que &L. 
L'imprimante est supposée 


connectée en slot 1. Notez que les 
instructions PR#n ne sont pas 
imprimées. 


&T 

Saisie du titre sur au plus 32 
caractères. Le format est libre. 
Effectuer la séquence : 


&T <Return> titre <Return> 


On peut également y inclure des 
codes de contrôle pour 
l'imprimante (sauf ESC). 


€&D 
Saisie de la date sur 32 caractères 
en format libre. 


€eP n 

n définit la longueur d'une page 
(de 21 à 127 sinon message 
d'erreur). 


&cC n 
n définit la largeur d'une page (de 
40 à 127 sinon message d'erreur). 


Le listing peut être interrompu par 
CTRL-C. Utilisez CTRL-S pour 
une interruption temporaire. 


Fonctionnement 


Sous DOS 3.3, le programme se 
charge en $90D1 et fixe Himem à 
$9100. Le programme initialise 
l'Ampersand et les valeurs par 
défaut du format, puis rend la 
main. 

Lorsqu'il est appelé pour une 
liste, il scanne le programme 
Basic en mémoire en effectuant, 
d'une part le même travail que la 
routine LIST de l'Applesoft 
(conversion des numéros de ligne 
stockés en binaire en valeurs 
affichables, traduction des tokens 
en mots-clés, etc.), d'autre part en 
améliorant l'affichage comme 
décrit précédemment. 


FORMATEUR utilise un grand 
nombre d'adresses inutilisées en 
page zéro ; cela ne pose pas de 
problèmes car il est prévu pour 
être activé en mode direct et non à 
l'intérieur d'un programme. De 
plus, la zone $300-$33F sert à 
sauvegarder le titre et la date 
éventuellement saisis. 


N.D.L.R. : les routines d'accès 
aux périphériques du programme 
ont été légèrement modifiées afin 
de permettre un fonctionnement 
normal avec une carte 80 
colonnes, ainsi qu'une exécution 
au choix sous DOS 3.3 ou 
ProDOS. 

Le programme T.FORMAT est le 
fichier source au format Big Mac. 
L'assemblage sous DOS 3.3 se 
fait simplement en mettant la 
variable PRODOS à 0. 
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Pour ProDOS, elle doit être mise 
à I et le source doit être resauvé 
sur disque. L'assemblage 
s'effectue en chargeant 
DARWIN.S (pour les détails 
d'utilisation, voir Pom's 22) ; la 
dernière ligne doit devenir "PUT 


FORMAT" et on assemble en 





chargé sous ProDOS par : 


(il se relogera au dessus des 


donnant les paramètres : BRUN FORMAT.PRODOS, A$6000 
DARWIN D = $90D1 

DRE ER buffers de ProDOS). 

VA DEBUT = 1 


Le module objet peut alors être 


G 





03 mars 1986 PAGE 1 
Convert 
400 LET Je gJ + 1 
410 NEXT 
420 LET N2 = J - 1 
430 REM  INCLUSION DES BRK 
440 ONERR  GOTO 460 
450 LET PS = FS(3} : 
PRINT DS$“BLOAD"FS : 
GOTO 470 
460 ‘CALL 768 : 
GOSUB 1080 : 
GOTO 440 
470 CALL 37500 
480 FOR I > 1 TO N1 
49Q TF INT (I / 500) = I / 500 THEN 
PRINT 
PRINT "PATIENCE JE FAIS LE MENAGE!"; : 
CALL 37500 ; 
PRINT "C'EST FINI" : 
PRINT 
500 FOR J » 1 TO 12 
510 IF MIDS (AS{I),d,1) < > “J» THEN 
670 
520 LET J æ°J +1 : 
IF MIDS (AS({I),9J,1} < > “S" THEN 
550 
530 LET Je J + 1: 
IF MIDS (AS(I)},J,1} < > "R° THEN 
670 
540 LET Z2S = 21S : 
GOTO 590 
559 IF MIDS ({AS(I),d,1) < > "M" THEN 
670 
560 LET J = 3 + 1: 
IF MIDS$S (AS(I},d,1} < > "P" THEN 
670 
570 LET 25 » 228 
580 REM ON À UN JSR OU JMP 
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Un listing formaté par 


‘FORMAT” 


Ce listing partiel de 'CONVERT" publié dans ces 
pages, a été obtenu à l'imprimante en faisant : 


+ BRUN FORMAT 
+ LOAD CONVERT 


+ &T pour la saisie du titre 'Convert' 


+ &D pour la date ‘03 mars 1986’ 


+ &LP 400,680 pour le listing proprement ait. 


Note : sous ProDOS, il faut faire 


BRUN FORMAT.PRODOS,A$6000 
et il vous faut un Basic.System dont la 


version est supérieure à 1.1. 


03 mars 1986 


PAGE 2 


LEFTS (A$(1},J - 4} 


LEN {2$(K)} 


IF LEN (A${I)} - M + 1 < L THEN 


MIDS (AS(I),M,EL) = ZS(K} THEN 


LET A$(T) = YS + 2$ + 2S$S(K) : 
PRINT AS(I},®"LIGNE NE °;I : 


Convert 
590 LET M = J + 2 
600 LET Y$S = #4 
619 IF J > 4 THEN 
LET YS = 
620 FOR K = 1 TO N2 
630 LET b = 
640 
660 
650 IF 
PRINT: :'S 
LET K = N2 
660 NEXT K : 
LET J = 12 
670 NEXT J : 
NEXT I 
689 HOME : 
PRINT "SAUVER LE FICHIER TRANSFORME ?° : 
SRINT EX 
PRINT » 


SUR DISQUETTE? <O,N>"; 





Pom's n° 23 





Source ‘DARWIN.S’ CR RS ETES RENE 





* pe L LL oi 
Assembleur BIG MAC EE 
47 DARWIN20 JSR $FF58 contient un RTS 
1 LARRRRARÉRRRÉRRRRRRRRRRRRRAÉÉ 48 TSX 
2” DARNWIN * 49 DEX 
3 RÉRRRARRRRRRARÉRRRÉRR RÉ RÉ RREÉ 50 CLC 
4 51 LDA $100,Xx recherche sur la pile 
5 * Routine d'initialisation à ProDOS 52 ADC #DARWIN99-DARNWIN20-2 ;adresse début routine 
6 * d'un programme assembleur DOS 3.3 53 STA $3C Al 
7 54 LDA $101,X 
8 * (C) 1985 Alexandre Avrane 55 ADC #0 
9 * Modifié: 24/11/85 56 STA $3C+1 
10 * Créé: 16/11/85 57 LDA $3C adresse de fin 
11 58 ADC #<DARWIN_L 
12 * Ce source est assemblé en conjonction 59 STA $3E A2 
13 * avec le programme à adapter ProDOS 60 LDA $3C+1 
14 61 ADC #>DARWIN_L 
15 DARWIN_D KBD ‘adresse de début DOS 3.3 62 STA $3E+1 
16 DARWIN_F KBD ‘adresse de fin DOS 3.3 63 LDA #<DARWIN À adresse d'arrivée 
17 VA _DEBUT KBD ;saute en début de pgm après chargement? 64 STA $42 A4 
18 65 PHA 
19 * Calcul des adresses sous ProDOS 66 LDA #>DARWIN A 
20 DARWINVI1 = DARWIN_F/$100+1 67 STA $42+1 
21 DARWINV2 = DARWIN_D/$100 68 PHA 
22 DARWINV3 = DARWINVI-DARWINV2 69 LDY #0 
23 DARNWINV4 = $100*DARWINV2 70 JSR $FE2C déplace le bloc par MOVE 
24 DARWINVS = DARWIN_D-DARWINV4 71 
25 DARWINV6 = DARWINV3*$100-DARWINVS 72 * maumesaensssessemmamsssass## 
26 73 * 3 - Appel du module et sortie 
27 DARWIN A = $9A00-DARWINV6 ; adresse de début ProDOS 74 * manssm=s= mms 
28 DARWIN_L = DARWIN_F-DARWIN_D ; longueur ProDOS 75 PLA 
29 76 STA $42+1 
30 ORG DARWIN_A-73 ;DARWIN prend 72 octets 77 PLA 
31 78 STA S$42 
32 * mmmammmzamenessssssssss 79 DO VA_DEBUT 
33 * 1 - Recherche de la place mémoire 80 JUMP ($42) saute en début de programme... 
34 * munnaumansss=====« 81 ELSE 
35 LDA $BFFD IVERSION 82 RTS ...-ou retour à l'Applesoft 
36 BEQ DARWINI0 Basic.System 1.0 83 NOP 
37 LDA #0-DARWIN A/$100+$9B 84 NOP 
38 JSR $BEFS5 GETBUFR 85 FIN 
39 BCC DARNWINI1 86 DARWIN99 = E 
40 DARWIN10O LDA #14 PROGRAM TOO LARGE 87 * Inclut le source du programme à adapter (format TEXT) 
41 JMP  $BEO9 88 PUT FORMAT 
42 DARWINII = * 89 END 
Récapitulation 6088- FF 20 B1 00 90 2C C9 50 6180- 20 24 ED 84 06 A9 00 18 
* 6090- FO 07 C9 00 DO 11 4C A9 6188- 69 07 85 1A 38 E5 06 A8 
en version ProDOS 6098- 94 A5 D6 FO 05 C6 D6 4C 6190- 88 A9 20 20 5C DB 88 DO 
[1 
FORMAT. 60A0- C9 DE E6 D6 4C 40 94 C9 6198- FA A9 00 85 1E 85 1D 85 
PRODOS’ 60A8- 2C FO 03 4C C9 DE A5 FB 61A0- D7 85 EB A4 07 20 F8 96 
60B0- FO 03 4C C9 DE E6 FB 4C 61A8- DO 03 4C FE 94 C9 3A FO 
. + 60B8- 40 94 20 OC DA A5 FB DO 61B0- F4 C9 82 DO 2C A9 01 85 
Après avoir saisi ce code 60C0- OD A5 50 85 FC A5 51 85 61B8- EB 38 A5 EC E9 04 10 02 
sous moniteur, à partir de 60C8- FD 20 B7 00 DO BE A5 50 61C0- A9 00 85 EC AA F8 A9 20 
l'adresse $6000, vous le 60D0- 85 FE A5 51 85 FF 20 B7 61C8- 20 F2 96 CA DO FA A2 00 
sauvegarderez par BSAVE 60D8- 00 FO 03 4C C9 DE A5 FD 61D0- BD DO 98 FO 06 20 F2 96 
FORMAT,A$6000,L$55E 60E0- C5 FF 90 0E DO 06 A5 FE 61D8- E8 DO F5 4C FE 95 4C 63 


61E0- 96 85 07 A6 20 
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Source ‘T.FORMAT' 


. 


Assembleur BIG MAC 
Sauvegarde sous format TEXT (voir texte) 
1 LST ON 
2 * 
S Ro mm om 
4! ! 
5 *! FORMATEUR DE LISTINGS BASIC ! 
6 *! ! 
7 *! COPYLEFT Gisèle PERREAULT et ! 
8 *! ! 
9 *! Sylvie GALLET 4 
10 *! ? 
QU nn nm —— 
12 * 
19 2-—mmmmmmmmmmmmmmmm———— 
14 *! Source pour DOS 3.3/ProD0S L 
15 PRODOS = 0 
16 *! (mettre 0 pour DOS ! 
17 *! ou 1 pour ProDOS] ! 
18 »*! { 
19 *! Assemblable directement pour ! 
20 *! DOS 3.3; utiliser DARWIN pour! 
21 *! ProDOS: ? 
22 *! avec les paramètres: ! 
23 *! DARWIN_D = $9000 1 
24 *! DARWIN F = $9520 4 
25 *! VA DEBUT = 1 ! 
26 t-mmmmmenmsmmmmmmmmmmmmscsem—— 
27 *! Syntaxe: 4 
28 *! 6L listing à l'écran ! 
29 *! 4LP listing à l'imprimante ! 
30 *! 6D saisie de la date ! 
31 *! 6T saisie du titre 4 
32 *! 4Pn longueur d'une page ! 
33 *! 6Cn largeur d'une page 1 
34 SLOT = ‘l' slot imprimante 
35 tmmmmmmmmmmmmmmmmmmmmmm—mmm— 
36 DO 1-PRODOS pas d'ORG pour P 
roDOS 
37 ORG $90D1 
38 * OBJ $800 
°39 FIN 
40 
41 CHRGET EQU $Bl 
42 CHRGOT EQU $B7 
43 TXTPTR EQU $B8 
44 LINNUM  EQU $50 
45 HIMEM EQU $73 
46 
47 FAC EQU $9D 


43 
49 
50 


53 


69 


77 
78 
79 


2$CE-$SCF 
#Compteur lignes 
*Décalage 


*lère ligne a li 


#Dernière ligne 


#*marge gauche 
*Longueur page 
*Compteur caract 
*Largeur page 
#*Numéro de page 
#*Drapeau " 
*Décalag si then 


#*Décal. for-next 


LONTR EQU $9B 
STOCK EQU $CE 
NL EQU $18 
DEC EQU $F9 
MAX EQU $FA 
VIRGULE EQU $FB 
DF EQU $FB 
M EQU $FC 

ster 
N EQU $FE 

a lister 
AUX EQU 506 
MARGE EQU S$09 
NLMAX EQU $19 
NC EQU SIA 
NCMAX EQU S$18 
PAGE EQU S$ic 
QUOTE EQU S$1D 
TF EQU $IE 
PRT EQU $D6 
RF EQU SD? 
NF EQU $EB 
FF EQU $EC 
* ($1F est utilisé par 80 col. du //e) 
* 
GETLN EQU S$FD6A 
CRDO EQU S$DAFB 
AMPER EQU $3F5 
BASIC EQU $FEB3 
STXERR EQU S$SDEC9 
OUTDO EQU SDB5C 
LINGET EQU $DAOC 
LINPRNT EQU  S$ED24 
FNDLIN EQU $D61A 
PRBL3 EQU $F94C 


* INITIALISATION 


AMPER+1 


1-PRODOS pas touche pas à 


Himem sous ProDOS! 


HIMEM 


#>DEBUT 
AMPER+2 
1-PRODOS 
HIMEM+] 





Lo0 


Lo3 


4542 * Longueur 66 li 
gnes par défaut 

NLMAX 

#$50 * Largeur 80 par 
défaut 

NCMAX 

#57 * Largeur marge 
gauche 

MARGE 

453F * 

4503 * 

STOCK+1 * Efface zone st 
ockage titre et 

450 * date ($300 à $ 
3ff) 

STOCK * 

v2 * 

PRT * Indicateur imp 
rimante 


LO0 * 

TITRE * 6L Liste le pr 
ogramme entier 

#50 * 

VIRGULE 

M 

M+1 

#$FF 

N 


N+1 


CARGET 

LO8 * 

4"? * &LP liste sur 
imprimante 

L03 * 

#50 

LO5 

LISTE 

PRT 

LO4 

PRT 

STXERR 

PRT 

LOo1 
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147 * 201 ELSE 257 BEQ RTS * Fin programme 
148 LO5 CM #',' 202 JMP $BE00 258 LDA $C000 * Arrét du lis- 
149 BEQ LO06 203 FIN 259 BPL L25 * ting si Ctrl C 
150 JMP  STXERR 204 * 260 CMP 4#$83 
151 * 205 2 261 BNE L25 
152 LO6 LDA VIRGULE 206 * 262 LDA $C010 
153 BEQ LO7 207 * LISTE 263 JUMP RTS 
154 JMP STXERR 208 * 264 L25 JSR LIREI 
155 207 INC VIRGULE 209 2-2 265 STA LINNUM 
156 JMP LOI 210 * 266 JSR LIREI 
157 * 211 LISTE = * 267 STA LINNUM+1 
158 LO8 JSR LINGET 212 Do 1-PRODOS 268 CMP N+1 
159 LDA VIRGULE 213 LDA S$AAS54 269 BCC L26 
160 BNE LO9 214 ELSE 270 BNE RTS1 
161 LDA LINNUM 215 LDA $BE31 271 LDA N 
162 STA M 216 FIN 272 CMP LINNUM 
163 LDA LINNUM#1 217 EOR #$FD :$SFDFO ? 273 BCC RTS1 
164 STA M#l 218 STA SLOTSAVE 274 L26 JSR CRDO1 
165 JSR CHRGOT 219 BEQ L20 275 JSR CRDOI 
166 BNE LO2 220 LDA #'3' ‘sinon slot 3 276 LDA LINNUM+1 
167 * 221 STA SLOTSAVE 277 LDX LINNUM 
168 LO9 LDA LINNUM 222 L20 LDA PRT 278 STY AUX+1 
169 STA N 223 BEQ L22 279 JSR LINPRNT * Impression du 
170 LDA LINNUM+1 224 LDA #SLOT no de ligne 
171 STA N+1 225 JSR GO_PR2 280 STY AUX 
172 JSR CHRGOT 226 L21 DEC PRT 281 LDA #$0 * 
173 BEQ L10 227 L22 STA DF 282 CLC * 
174 JMP  STXERR 228 STA NL 283 ADC #$7 * 
175 * 229 STA NC 284 STA NC * Marge après nu 
176 L10 LDA M+#1 230 STA QUOTE mére de ligne 
EL CMP N+1 231 STA PAGE 285 SEC * 
178 BCC LISTE 232 STA TF 286 SBC AUX * 
179 BNE RTS 233 STA FF 287 TAY * 
180 LDA N 234 STA RF 288 DEY * 
181 CMP M 235 LDA M 289 LDA #$20 * 
182 BCS LISTE 236 STA LINNUM 290 L27 JSR OUTDO 
183 * 237 LDA M+1 291 DEY 
184%" 238 STA LINNUM+1 292 BNE L27 
185 * 239 JSR FNDLIN 293 LDA #$0 
186 * FIN DU PROGRAMME 240 LDY #53 294 STA TF 
187 * 241 BCS L23 295 STA QUOTE 
1089 t-mmommmmmmnnenmmanennenmen—— 242 LDY #50 296 STA RF 
189 * 243 BEQ PREMLGN 297 STA NF 
190 RTS = * 244 JMP CHAINAGE 298 LDY AUX+1 
191 DO 1-PRODOS 245 * 299 * 
192 LDA SLOTSAVE 246 RTS1 JMP RTS 300 2 
193 BEQ Li2 247 * 301 »* 
194 L11 LDA $c000 248 L23 JSR CRDOI 302 * LECTURE 1ER OCTET D'UNE LIGNE 
195 BPL Lil attente clavier 249 JSR ENTETE 303 * 
car PR#3 peut effacer l'éc 250 JMP L26 DO ——— 
ran 251 PREMLGN = * 305 * 
196 LDA $CO010 252 JSR CRDOI 306 DEBLGN JSR LIREI 
197 FIN 253 JSR ENTETE 307 BNE L31 
198 L12 JSR GO PR 254 JMP L24 308 JMP CHAINAGE 
199 DO 1-PRODOS 255 CHAINAGE JSR LIREI 309 L31 CMP 4':' * Elimine les ": 
200 JMP BASIC 256 L24 JSR LIRE! " en trop 
A = 9148- DA A5 FB DO OD A5 50 85 9238- 85 D7 85 EB A4 07 20 DA 
Récapitulation 9150- FC A5 51 85 FD 20 B7 00 9240- 93 DO 03 4C EO 91 C9 3A 
en version 9158- DO BE A5 50 85 FE A5 51 9248- FO F4 C9 82 DO 2C A9 01 
9160- 85 FF 20 B7 00 FO 03 4C 9250- 85 EB 38 A5 EC E9 04 10 
DOS 9168- C9 DE A5 FD C5 FF 90 1B 9258- 02 A9 00 85 EC AA E8 A9 
9170- DO 06 A5 FE C5 FC BO 13 9260- 20 20 D4 93 CA DO FA A2 
FORMAT 9178- AD F7 95 FO 08 AD 00 CO 9268- 00 BD B2 95 FO 06 20 D4 
9180- 10 FB AD 10 CO 20 D5 95 9270- 93 E8 DO F5 4C EO 92 4C 
9188- 4C B3 FE AD 54 AA 49 FD 9278- 45 93 85 07 A6 EC E8 A9 
Après avoir saisi ce code 9190- 8D F7 95 FO 05 A9 33 8D 9280- 20 20 D4 93 CA DO FA A5 
sous moniteur, vous 9198- F7 95 A5 D6 FO 07 A9 31 9288- 07 30 EC C9 30 90 32 C9 
le sauvegarderez par 91A0- 20 D8 95 C6 D6 85 FB 85 9290- 3A BO OD A9 20 20 D4 93 
BSAVE FORMAT,A$90D1,L$527 91A8- 18 85 1A 85 1D 85 1C 85 9298- A5 07 20 D4 93 4C EO 92 
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NEXT 


L32 


L33 


L34 


L43 


L44 


DEBLGN 
4582 

L41 
#51 

NF 

; Réduit le décala 
ge et imprime 

FF #* NEXT 


#* Next ? 


#54 
L32 
450 
FF 


#520 
OUTDO1 


L33 
#50 
NXT, X 
L35 
OUTDOI 


L34 
LIRE 


TOKEN 


AUX +1 * Effectue déca- 
FF * lage for-next 


#520 
OUTDO1 


L42 

AUX+1 

TOKEN1 

#'0" * Si numéro de 

L47 * ligne après 
":! * THEN décale 
d'1 espace en + 

L44 

#520 

OUTDOI 

AUX+1 

OUTDOI 

LIRE 

t'A' * Si nom de va- 

L47 * riable en débu 
t instruction imprime LET 
4558 * 

L47 

#50 

AUX+1 

LET, X 

L46 


L46 


L47 


L48 


CHAINE 


L52 


L53 


OUTDO1 


L45 

AUX+1 

OUTDO1 

LIRE 

AUX+1 * Le caractère 1 
u n'est pas un nom 

gum 

L48 

PRINT 

QUOTE 

451 

QUOTE 

#520 

OUTDO1 

PL 

PRINT2 


4": 
PRINT2 * Le : 
guillemets 


est entre 


CHAINAGE 


LIRE1 

XX * 0 de fin de li 
gne Basic 

TOKEN 

DF 

#51 

L52 

#50 

DF 

AUX+1 

#520 * Décale de les 
P. le ler caractère 

QUTDOI * alphanumérique 
si ligne coupée 

AUX+1 


L54 


L55 


L56 








‘“":" 

OUTDO1 

NI * Saut ligne pou 
r nouvelle inst. 


#50 * Annule indicat 
eur coupure de ligne 


DF 


#57F 


AUX+1 * 

#51 

L60 

#1 

RF 

L64 

#52 * Début FOR NEXT 

L61 * Augmente compt 
eur décalage 
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467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 

492 

493 
494 

495 

496 

497 
498 
499 
500 
501 

502 
503 
504 
505 
506 

507 
508 

509 
510 
511 

512 

513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 


526 
527 
© 528 
529 
530 
531 
532 
533 
534 


535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 


554 


555 
556 


557 
558 
559 
560 
561 
562 
563 
564 
565 


L64 


L65 


L66 


L67 


L68 


L72 


LIRE1 - 


SAUTLGEN = 


* coupe 
* * la ligne 
SBC 


DECALE = 


NI JSR 


* LIT DANS BASIC 


LIT DANS LA TABL 
£E DES MOTS CLES 
SL2 
FAC+1 
(FAC), Y 
* 
AUX+1 
NCMAX * À 11 caract. d 


e fin de ligne 
di" "°," 
#58 


NCMAX 

RETURN 
* 

#54 

FF 

DEC 
ectuer 
#51 * Marqueur coupu 
re de ligne 

DF 

CRDO1 * Décalage en dé 
but d'instruction 

MARGE 


* Décalage à eff 


566 RETURN 
567 


568 
569 
570 CRDOI 
571 
572 
573 CRDO2 
574 
575 
576 
577 
578 
579 SL11 
580 SL12 
581 


582 

583 SL13 
584 

585 

586 ENTETE 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 * 
622 * 
623 
624 
625 
626 
627 
628 
629 
630 
631 * 
632 * 
633 
634 


SL21 


SL22 


SL23 


635 
636 
637 
638 
639 * 
640 
641 * 
642 TTR 
643 

644 

645 
646 
647 
648 DTE 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 INPUT 
666 SL61 


SLS5 


#50 
e local 


ENTETE 


* Annule décalag 


Même page 
* Page suivante 
* Si lère page n 


e fait pas de saut 


#54 
CRDO 


SL13 
AUX+1 
PAGE 
453 


#5F 
NC 
SL21 
#52 


#5A0 
PRBL3 

#50 
NUMPAGE, X 
SL23 


LH 36 


* de 4 lignes 


* DATE 


* Imprime “page 


* TITRE 
* Imprime titre 


* Saisie du ticr 


e ou de la date 


TTR 
‘0 
DTE 
LONGPG 


#50 
STOCK 
4503 
STOCK+1 
VIDE 
SL5 
#520 
STOCK 
#503 
STOCK+1 
VIDE 
$38 


$39 


#INPUT 
$38 

#4> INPUT 
$39 
GETLN 
#$521 
INPUT 
ERR 

#50 
$200,Y 


* Sélection entrée date ou titre 


* Transfert dans 


zone de stockage 


SL62 


VIDE 


SL72 


LONGPG 


SL80 


SL81 


SL90 


SL91 


SL101 


SL111 








#$8D 
SL62 
(STOCK) , Y 


SL61 


$39 


#50 
#51F 
(STOCK) ,Y 


* Longueur page 


* Maxi 127 ligne 


* Largeur de la 


SL111 

RTS 

0707 
‘MIN.21' 
00 





Pom's n° 23 


23 


24 


L'Applesoft est un peu à l'étroit dans la 


zone mémoire 


réservée 


à votre 


imagination débordante. Les 48Ko qui 
vous sont genéreusement alloués se 
revèlent parfois insuffisants lorsque vos 
programmes Basic utilisent des images 
HGR et ou des routines en langage machine 
importantes. Si, de plus, votre programme 
utilise des tableaux alphanumériques, il ne 
vous reste qu'une peau de... pomme. 


Le programme NAVETTE va 
vous permettre d'utiliser les 16 
Ko de la carte langage pour placer 
l'ensemble des programmes 
binaires dont a besoin votre 
programme Basic. 


Les solutions 


Programmes binaires 
n'utilisant pas de 
routines Applesoft 


Le plus simple consiste à recopier 
le Moniteur de la ROM vers la 
RAM aux mêmes adresses (de 
$F800 à $FFFF). Tout appel au 
Moniteur à partir de la carte 
langage sera alors dirigé vers la 
RAM. Ainsi, à chaque utilisation 
de notre programme binaire, une 
routine en RAM principale (sous 
l'adresse $9600), se chargera de 
transférer le contrôle à la carte 
langage, puis de reprendre la main 
en finale en commutant vers la 
ROM avant de retourner au 
programme Basic. 


Programmes utilisant des 
routines Moniteur 
et Applesoft 


Le problème se complique car il y 
a conflit entre l'utilitaire en 


langage machine et la ROM 
Applesoft ; ceux-ci commencent 
en effet à la même adresse (à 
partir de $D000). Comme dans le 
cas précédent, une routine fera la 
liaison entre le programme Basic 
et la carte langage, mais elle 
servira de plus d'aiguillage pour 
tout appel (et retour) de routine 
ROM (Applesoft ou Moniteur). 
C'est l'objet du programme 
NAVETTE. 


Principe 


Le programme NAVETTE va 
servir d'interface entre le 
programme en ‘carte langage’ et 
les sous-programmes en ROM. 
Son principe repose sur une 
utilisation de l'instruction BRK 
pour passer le relais à NAVETTE. 
Il suffit de placer, dans le 
programme destiné à être logé 
dans la RAM supérieure, un 
BREAK (BRK:00) avant chaque 
appel d'une routine de la ROM. A 
la rencontre de ce code, le 
moniteur saute à l'adresse 
vectorisée par $FFFE et $FFFF, 
en l'occurence, on saute à 
NAVETTE qui, comme sont nom 
l'indique, fera la navette entre la 
RAM et la ROM. 





Asa 


Jean-Paul Ardel 


Pratiquement.… 


Dans votre programme Basic, 
charger NAVETTE et l'utilitaire 
par une séquence telle que : 


10 D$= CHR$(4): PRINT D$"B 
RUN NAVETTE" 

20 A = PEEK (-16255) : A = 
PEEK (-16255): PRINT DS$ 
"BLOAD UTILITAIRE": À = 
PEEK (-16254) 


L'utilitaire sera ensuite exécuté 
par l'instruction ‘&' dite 
ampersand. 


Modification 
de l'utilitaire 


Assembler le programme que l'on 
veut charger dans la carte langage, 
à partir de l'adresse $D000, en 
ayant pris soin de placer des BRK 
avant chaque appel à la ROM par 
JSR ou JMP ou avant chaque 
instruction accédant à la ROM 
(par exemple LDA $FBB3 qui 
détermine le type de la machine). 


Il est à noter que tout programme 
existant peut être modifié et 
assemblé de la sorte. Si ce 
programme utilise l'ampersand, il 
suffit de supprimer la partie 





Suite du source ‘T.FORMAT' listé pages précédentes 


769 HEX 00 

770 LET ASC ‘ LET ‘ 
771 HEX 00 

772 THEN ASC ' THEN' 
773 HEX 00 

774 NUMPAGE ASC "PAGE 
775 HEX 00 

776 MAXI HEX 0707 

777 ASC 'MAX.127 
778 HEX 00 

779 

780 GO PR = * 

781 LDA SLOTSAVE 


782 GO PR2 STA 


PR_DATA+3 
ataire 


‘acc=slot destin 


783 Do 1-PRODOS 
784 JSR CRDO 

785 LDA #4 ctri-d 
786 JSR OUTDO 

787 FIN 

788 LDX #0 

789 Go2 LDA PR DATA, X 
790 BEQ GO3 

791 Do 1-PRODOS 
792 JSR OUTDO 

793 ELSE 

794 ORA #$80 

795 STA S200,X 
796 FIN 

797 INX 


798 BNE GO2 
799 GO3 = * 

800 DO PRODOS 
801 JSR S$BE03 
802 LDA 40 

803 FIN 

804 RTS 

805 

806 PR DATA ASC ‘'PR4l' 
807 HEX ODO00 
808 SLOTSAVE ASC ‘l' 
809 DO  1-PRODOS 
810 END 

811 FIN 
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A. tumment eérer des routines binaires sur 2 cart lez. 


relative à l'initialisation de 
celui-ci. Par contre les 
instructions Basic utilisant cet 
artifice restent inchangées. 
L'utilisation de NAVETTE à 
l'intérieur d'un programme Basic 
est entièrement transparente. 


Facilités 


Le programme CONVERT permet 
d'ajouter les BRK dans les 
sources devant les instructions 
JSR et JMP appelant un sous- 
programme en ROM. 


Ce programme se charge 
d'identifier toutes les adresses en 
ROM, définies par des labels 
grâce à l'opcode "EQU" ou "=", 
d'un programme source écrit avec 
BIG MAC, sauvegardé sous 
forme de fichier TEXT. Il insère 
ensuite les BRK automa- 
tiquement ; il sauve enfin sur 
disquette, le programme modifié, 
en ajoutant le suffixe ".LC". 


Il utilise les routines suivantes : 
°_ INPUT : input généralisé 
acceptant tous caractères ; 
+ DIM.VAR.OBjJ: routine 
publiée dans Pom's 12 ; 
° FRE (16) : routine de ‘garba- 
ge’ publiée dans Pom's 2. 


Techniquement.… 


A chaque appel de l'ampersand le 
scénario est le suivant : 


1] NAVETTE commute sur la 
mémoire supérieure (carte 
langage) ; 

2] exécution de l'utilitaire 


jusqu'à la rencontre d'un BRK 
qui dirige sur NAVETTE ; 


3] les registres sont alors 
sauvegardés. On recherche 
ensuite l'instruction suivant BRK. 
On commute alors l'accès à la 
ROM et cette instrution est 
exécutée ; 


4] enfin, NAVETTE commute de 
nouveau sur notre utilitaire ; 


5] le retour au Basic ne saurait se 
réaliser sans un petit passage (le 
dernier jusqu'au prochain) par 
NAVETTE, qui se charge de 
replacer correctement les 
commutateurs RAM/ROM, avant 
de rendre la main au programme 
Basic. 


NAVETTE a été testé sur ICARE 
de P. CANTOT, version complète 
(SUPER PRINT et TORTUE 
inclus). Avec quelques aména- 
gements bien sûr, il semble 
donner toute satisfaction. 


Précisions, limites 


+ NAVETTE est assemblé en 
page 3 à partir de l'adresse 
$300, l'utilitaire étant placé 
au-dessus du DOS, HIMEM 
conserve sa valeur fixée par le 
DOS soit $9600 (38400) ; 


+ NAVETTE est incompatible 
avec les DOS déplacés dans la 
carte langage, de même 
qu'avec PRODOS qui utilise 
lui aussi cet espace mémoire ; 


+ NAVETTE commute sur le 
Banc 2 et la mémoire commune 
de 8Ko. Pour commuter sur le 
Banc 1 voir la remarque 5. 
Pour plus de précisions voir 
l'article de Gérard Michel dans 
le numéro 19 de Pom's, page 
29 ; 


* il ne faut pas que l'utilitaire 
fasse appel à des interruptions 
(BRK), les vecteurs d'inter- 
ruptions étant modifiés par 
NAVETTE ; 


* si vous voulez placer plusieurs 
utilitaires indépendants sur la 
carte langage, il vous suffit, 
avant l'appel de l'un d'eux, de 
POKer son adresse d'implan- 
tation en $31E (798) et $31F 
(799) dans l'ordre habituel : 
adresse basse puis haute. Si 
vous voulez utilisez le BANC 
1, POKez 0 à la place de 128 


en $324 (804). ä 


Programme 
‘CONVERT’ 


10 


REM 


INSERTION DES BRK 
DANS PGM SOURCE BIG MAC 


JEAN PAUL ARBEL 


1 
1 
! 
! 
! 


CE 


HIMEM: 37490: HOME : TEXT 

REM AMPERSAND -> DIM. VAR 

POKE 1013,76: POKE 1014,124: POK 
E 1015,146 

DIM A$(1): DIM Z$(1): DIM F$(3) 


60 F$(1) = "INPUT":F$(2) = "DIM. VAR. 


70 D$ = 


500 


OBJ":F$(3) = "FRE(16)" 
CHRS$ (13) + CHRS (4) 
ONERR GOTO 100 
FOR I = 1 TO 2:F$ = F$(I): PRINT 
D$"BLOAD"F$ (1): NEXT : GOTO 110 
CALL 768: GOSUB 1080: GOTO 80 
Z1$ = " BRK" + CHRS$ (13) + " JS 
R" 
Z2$ = " BRK°" + 
pm 

REM LECTURE FICHIER 
VT = 10 

VTAB VT: INVERSE :R$ = "NOM DU 
FICHIER SOURCE À TRANSFORMER?": 
GOSUB 1010 
VTAB VT + 1: 
NPUT F1$ 
ONERR GOTO 190 

PRINT D$"OPEN"F1$: GOTO 210 
E = PEEK (222): IF E = 4 THEN E 
= 7 

IF E < > 11 THEN PRINT D$"CLO 
SE"F1$ 

CALL 768: GOSUB 1090: GOTO 150 
PRINT D$"READ"F1S$ 

ONERR GOTO 250 

HOME :R$ = "CHARGEMENT DU FICHI 
ER:": GOSUB 1010: VTAB 5: INVERS 
E :R$ = F1$: GOSUB 1010 

FOR I = 1 TO 2000: CALL 782 INP 
UT A$(I): & A$ + : NEXT 

CALL 768:N1 = I - 1:J = 1 

PRINT D$"CLOSE"F1S$ 

IF I < 2 THEN PRINT D$"DELETE" 
FI$:E = 7: GOTO 200 

REM RECHERCHE DES LABELS... 
REM .,.APPLESOFT OÙ MONITEUR 
HOME :R$ = "VOICI LA LISTE DES 
LABELS": GOSUB 1010: VTAB 3:R$ = 
"DE LA ROM APPLESOFT OU MONITEU 
R:": GOSUB 1010 

FOR I = 1 TO N1:K = LEN (AS$(I) 
) - 6: IF K < 3 THEN 410 
B$ = MID$ (A$(I),K,4):C$ = LEF 
T$ (B$,1): IF C$ = "=" ORC$S = " 
U" THEN 340 

GOTO 410 
B$ = RIGHTS (B$,2) 

IF B$ = "$D" OR B$ = "$E" OR B$ 
= "$F" THEN 370 

GOTO 410 

IF C$ = "=" THEN 2$(J) = 
(A$(I),K - 2): & 2$ + : 
0 


CHR$ (13) + " JM 


HTAB 3: CALL 782 I 


LEFTS$ 
GOTO 39 


IF C$ = "U" THEN 2$(J) = 

(A$(I),K - 4): & Z$S + 
PRINT Z$(J) 
J=J+1 

NEXT 
N2=J-1 

REM INCLUSION DES BRK 
ONERR GOTO 460 
F$ = F$(3): PRINT D$"BLOAD"FS$S: G 
OTO 470 

CALL 768: GOSUB 1080: GOTO 440 
CALL 37500 

FOR I = 1 TO N1 

IF INT (I / 500) = I / 500 THE 
N PRINT : PRINT "PATIENCE JE FA 
IS LE MENAGE!";: CALL 37500: PRI 
NT "C'EST FINI": PRINT 

FOR J = 1 TO 12 


LEFTS$ 
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25 


26 


510 
520 
530 


540 
550 


560 


570 
580 
590 
600 
610 


620 
630 
640 


650 


660 
670 
680 


690 
700 
710 
720 
730 
740 
750 


760 
770 
780 
790 
800 


1000 


1010 


1020 


1030 


1040 


1050 
1055 
1060 


1070 
1080 E = 
1090 
1100 


1105 


1110 R$ = "DISQUETTE PLEINE": 


1120 


IF MID$ (A$(I),J,1) < > "JT 
HEN 670 

J = J +1: IF MID$ (AS$(I),J,1) 
< > "S" THEN 550 

J = J +1: IF MIDS$S (AS$(I),1J,1) 
< > "R" THEN 670 

Z$ = Z1$: GOTO 590 

IF MID$ (AS$(I),J,1) < > "M"T 
HEN 670 

J' = J +1: IF MID$ (AS$(I),J,1) 


< > "P" THEN 670 
2$ = Z22$ 

REM ON À UN JSR OU JMP 
M=J+2 
YsS = nn" 

IF J > 4 THEN YS$S = 
J),J = 4) 

FOR K = 1 TO N2 
L = LEN (Z$(K)) 
IF LEN (AS$(I)) 
N 660 

IF MID$ (AS$(I),M,L) = Z$(K) TH 
EN AS$(I) = Y$ + 2$ + Z$S(K): PRIN 
T A$(I), "LIGNE N[ ";I: PRINT :K 
= N2 

NEXT K:J = 12 

NEXT J: NEXT I 

HOME : PRINT "VOULEZ-VOUS SAUVE 
R LE FICHIER TRANSFORME": PRINT 
= PRENT SUR DISQUETTE 
? <O,N>"; 
GET R$ 

IF R$ = "N" 
IFR$ < > 
PRINT 
F2$ = F1$ + ".LC" 

ONERR GOTO 760 

PRINT D$"OPEN"F2$: PRINT D$"DEL 
ETE"F2$: PRINT DS$"OPEN"F2$: PRIN 
T D$S"WRITE"F2$: GOTO 770 

CALL 768: GOSUB 1080: GOTO 740 
FOR I = 1 TO N1 

PRINT AS$(I): NEXT 

PRINT D$"CLOSE"F2$ 

END 

REM SOUS-PGM DE MESSAGES D'ERR 
EUR 

HTAB (40 - 
NT RS: NORMAL : 

VTAB 21: PRINT "APPUYEZ SUR RE 
TURN POUR UN NOUVEL ESSAI": VTA 
B 23: PRINT " OU APPUYEZ SUR E 
SCAPE POUR QUITTER";: RETURN 

VTAB 19:R$ = "POUR VOIR LE CAT 
ALOGUE TAPEZ ?": GOSUB 1010: RE 
TURN 

VTAB 23: HTAB 38: 
ASC (R$) = 13 THEN 
10: RETURN 

IF ASC (R$) = 27 THEN END 

ONERR GOTO 190 

IF ASC (R$) = 63 THEN HOME : 

PRINT D$;"CATALOG": GET RS:VT 
= 23: RETURN 

GOTO 1040 
PEEK (222) 

HOME : VTAB 5 

ON E GOTO 1190,1190,1190,1190, 
1210,1210,1130,1170,1110,1150,1 
250,1150,1150 

PRINT CHR$ (7);"BREAK IN "; P 
EEK (218) + PEEK (219) * 256: 
END : RESUME 


LEFTS (AS(I 


-N+1<LTHE 


THEN END 
"O" THEN 690 


LEN (R$)) / 2: PRI 
RETURN 


GET R$: IF 
HOME :VT = 


GOSUB 
1010: VTAB 10:R$ = "VEUILLEZ CH 
ANGER DE DISQUETTE": GOSUB 1010 
GOSUB 1020: GOSUB 1040: RETURN 


1130 R$ = "FICHIER NON TROUVE" 


1135 


1140 


GOSUB 1010: VTAB 10:R$ = "VOUS 
AVEZ TAPE:": GOSUB 1010: VTAB 
12: INVERSE :R$ = F1$: GOSUB 10 
10 

GOSUB 1020: GOSUB 1030: GOSUB 
1040: RETURN 


1150 R$ = "LE FICHIER SOURCE NE PEUT 


1160 


ETRE": GOSUB 1010: VTAB 7:R$ = 
"QU'UN FICHIER DE TYPE TEXTE": 
GOSUB 1010: VTAB 10:R$ = "CREE 
PAR L'ASSEMBLEUR BIG MAC": GOS 
UuB 1010 

GOSUB 1020: GOSUB 1030: GOSUB 
1040: RETURN 


1170 R$ = "VERIFIEZ LA FERMETURE DE 


1180 


LA PORTE": GOSUB 1010: VTAB 12: 
R$ = "OU PLACEZ UNE DISQUETTE D 
ANS LE LECTEUR": PRINT R$ 

GOSUB 1020: GOSUB 1040: RETURN 


GOSU 
B 1010: VTAB 10:R$ = "VEUILLEZ 

ENLEVER LA PROTECTION ET": GOSU 
B 1010 

GOSUB 1020: GOSUB 1040: RETURN 


1190 R$ = "DISQUETTE PROTEGEE”": 


1200 


1210 R$ = "LE FICHIER " + F$ + " EST 
ABSENT": GOSUB 1010:R$ = "VEUI 
LLEZ PLACER LA BONNE DISQUETTE 





ET": VTAB 7: GOSUB 1010 
1220 GOSUB 1020: GOSUB 1040: RETURN 
1250 R$ = "NOM DE FICHIER INCORRECT" 
: GOTO 1135 
Source 
£ L 
T.NAVETTE 
Assembleur Big Mac 
) ÉRRRRRÉRRRRÉRRRRRRÉRRRRRRRRRRE 
2 + L£Z 
3 *»* soseidssse + 
4 L22 .* 
5 »»* NAVETTE + 
6 ** SET UE ** 
7 + + 
CR PAR Jean paul ARBEL + 
9 LEA .. 
10 ** + 


DRE LLLLLELLLELLLLELEL LL LL LLLL T7] 


13 ORG $300 
14 AMPERV = $3F5 
15 UTIL - $D000 
16 RAM] - $co8 
17 RAM2 _ $co83 
18 ROM = $co82 
19 ROMI - $c089 
20 ROM2 - $co81 
21 IRQ $SFFFE 
22 


PARELLLELLELLLESLELEEELEEEETETET})] 


24 *** VECTORISE L'AMPERSAND *** 


25 

26 LDA 4#$4C 

27 STA AMPERV 
28 LDA #<DEBUT 
29 STA AMPERV+#1 
30 LDA 4#>DEBUT 
31 STA AMPERV+2 
32 RTS 

33 


KPRELELELLELLELEL EL EL ELS 1111111111 


35 #*#***  VECTORISE LE BREAK **** 

36 

37 DEBUT JSR COMMUT :Commute la R 
OM et le Bank 1 ou 2 

38 LDA #<GO ;Vectorise le 
BRK vers NAVETTE 

39 STA IRQ 

40 LDA #>GO 

41 STA IRQ+1 

42 JSR UTIL ‘Exécute l'ut 
ilitaire 

43 BIT ROM ‘Retour au BA 
SIC 

44 RTS 

45 BANK DFB $80 :0 = Bank 1, 
$80 = Bank 2 

46 

47 


PERELELELELELEL TELE EE EEE TEE 772722211111) 


49 ** NAVETTE entre la RAM et la ROM ** 


CYRELELEEEEEEEE TELE EE PET EE TENTE LLLI I 


52 * Sauvegarde des paramètres 

53 GO STA SAVA ‘A 

54 STY SAVY :Y 

55 PLA 

56 STA SAVP :P 

57 LDA $6 

58 STA SAVE :R6 

59 LDA $7 

60 STA SAV? :R7 

61 PLA 

62 STA $6 :ADRL BRK+2 

63 PLA 

64 STA $7 :ADRH BRK+2 

65 

66 * Recherche l'instruction après le BR 
K 

67 LDA $6 

68 BNE SAUT 


93 
94 
95 
96 
97 





DEC $7 

DEC $6 

LDY #4#$2 

LDA ($6),Y : Transmission 

de l'instruction 

STA INSTR,Y 
DEY 
BPL 


CMP 


BOUCLE 
#$54cC 

? 

JUMP 

#56C 
Indirect ? 
JUMP 

#$57C 
préindéxé ? 
BEQ JUMP 


:OPCODE = JMP 


;OPCODE = JMP 


:OPCODE = JMP 


* Calcul adresse de retour en Carte L 

angage (sauf si JMP) 

CLC 

LDA $6 

ADC #52 

TAY 

LDA $7 

ADC #50 ;ADRH BRK+3 

PHA :ADRH Retour 
utilitaire - 1 

TYA 

PHA ‘ADRL Retour 
utilitaire - 1 


:ADRL BRK+3 


* Restauration des paramètres 


BIT BANK 
BPL J1 

BIT 
BIT 


JUMP «Bank 1 ou 2 


J2 LDA 


RRÉRÉRRRÉRÉRÉRÉRÉRRRARÈARÉRÉRR 


* COMMUTE LA CARTE LANGAGE * 


COMMUT 
;Bank 1 ou 2 


c1 BIT 


c2 PLP 


RARRARARARÉRÉRÉRÉRÉRÉÈRÉARÉRÈRR 


** EXECUTE L'INSTRUCTION ** 


INSTR DS 3 ‘Instruction 
aprés le BRK 


RTS 


CÉLELELELELELLLLLLELEEEEELELLEEL, 


#** SAUVEGARDE PARAMETRES ** 


SAVA Ds 1 
SAVY DS 1 
SAVP Ds 1 
SAV6 DS 1 
SAV? Ds s | 


Routine ‘FRE(16)’ 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE FRE(16),A$927C,L$1F9 


927C- 
9280- 


4C 86 92 E5 
6E C9 04 90 01 60 20 04 


9288- 94 A6 73 A5 74 86 6F 85 
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3230- 70 A9 55 A2 00 85 5E 86 0300- A9 00 85 D8 68 A8 68 A6 92F8- 19 A5 1A 85 18 4C E5 92 
3238- 5F C5 52 FO 05 20 1F 93 0308- DF 9A 48 98 48 60 20 B1 9300- AO 02 Bl 18 18 65 18 85 
3220- FO F7 A9 07 85 8F A5 69 0310- 00 20 E3 DF 85 85 84 86 9308- 1A C8 Bl 18 65 19 85 1E 
92A8- A6 6A 85 5E 86 5F E4 6C 0318- 20 2C D5 C8 E8 20 E9 E3 9310- 60 A5 18 85 42 A5 19 85 
92B0- DO 04 C5 6B FO 05 20 12 0320- 4C 9A DA 9318- 43 C8 B1 18 85 08 C8 B1 
92B8- 93 FO F3 85 94 86 95 A9 9320- 18 85 09 20 00 93 A5 1A 
92C0- 03 85 8F A5 94 A6 95 E4 9328- 85 3C A5 LE 85 3D A5 6D 
92C8- 6E DO 07 C5 6D DO 03 4C 9330- 85 3E A5 6E 85 3F AO 00 
92D0- BA 93 85 5E 86 5F AO 00 E P E 5 0 9338- 20 2C FE A5 6D 38 E5 08 
92D8- B1 5E AA C8 Bl 5E 08 C8 2 us = 9340- 85 6D A5 6E E5 09 85 6E 
92E0- B1 5E 65 94 85 94 C8 B1 9348- A6 1B DO 03 20 B1 00 60 
92E8- 5E 65 95 85 95 28 10 D3 Sous DOS, 9350- 20 E5 92 AO 04 B1l 18 C9 
92F0- 8A 30 DO C8 B1 5E AO 00 9358- 01 DO F1 20 00 93 A5 1D 
92F8- OA 69 05 65 5E 85 5E 90 Sous ProDOS, 9360- FO 09 C6 08 A5 08 38 E5 
9300- 02 E6 5F A6 5F E4 95 DO en 40 colonnes, 9368- 1D 85 08 A5 1C FO 38 A0 
9308- 04 C5 94 FO BA 20 1F 93 en 80 colonnes, 9370- 06 B1 18 38 E9 01 91 18 
9310- FO F3 B1 5E 30 05 C8 B1 9378- 88 B1 18 E9 00 91 18 AO 
9318- 5E 30 03 4C A9 93 C8 B1 9380- 02 B1 18 38 E5 08 91 18 
9320- 5E FO F8 85 18 C8 B1 5E 9388- C8 B1 18 E9 00 91 18 A5 
9328- 85 19 C5 6F C8 B1 5E 85 S 9390- 1A 48 A5 1E 48 20 00 93 
9330- 1A E5 70 BO E6 A5 19 CD ur 9398- 85 43 A5 1A 85 42 68 85 
9338- 14 94 A5 1A ED 15 94 90 93A0- 3D 68 85 3C 4C 2E 93 A0 
9340- 68 A5 19 C5 6D A5 1A E5 Apple ][+ 93A8- 06 B1 18 18 69 O1 91 18 
9348- 6E 90 DO A2 21 CA CA A5 Apple //e 93B0- 88 B1 18 69 00 91 18 A0 
9350- 19 DD 13 94 A5 1A FD 14 93B8- 02 Bl 18 18 65 08 91 18 
9358- 94 90 F2 86 1B A2 03 BD Apple //e+ 93C0- C8 Bl 18 69 00 91 18 A5 
9360- 13 94 9D 11 94 BD 14 94 Apple //C 93C8- 6E 85 07 85 09 A5 6D 85 
9368- 9D 12 94 BD 34 94 9D 32 93D0- 06 18 65 08 85 6D 85 08 
9370- 94 BD 33 94 9D 31 94 BD 93D8- 90 04 E6 6E E6 09 AO 00 
9378- 54 94 9D 52 94 BD 53 94 93E0- B1 06 91 08 A5 07 C5 1E 
9380- 9D 51 94 E4 1B E8 E8 90 93E8- DO 09 A5 06 C5 1A DO 03 
9388- D6 A6 1B A5 19 9D 13 94 93F0- 4C 4C 93 C6 06 A5 06 C9 
nn an oies dr der as Let. 04 END De CE AS 
œ ; 9400- 08 C9 FF DO DB C6 09 4C 
93A0- 5F 9D 54 94 A5 8F 9D 33 page 74. 9408- EO0 93 
93A8- 94 A5 8F 18 65 5E 85 5E Vous avez déjà 
93B0- 90 02 E6 5F A6 5F AO 00 E.P.E. ? 
93B8- 60 60 A2 1F BD 34 94 A8 £ £ " " 
nn Nous le mettrons à Récapitulation 


93C8- 85 6F A5 70 E9 00 85 70 niveau ! ‘NA VETTE" 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
93F0- 85 1C BD 54 94 85 1D A5 Routine BSAVE NAVETTE,A$300,L$B6 
oi - à . eh . . " a ‘DIM VAR OBJ’ 0300- A9 4C 8D F5 03 A9 10 8D 
- di 0308- F6 03 A9 03 8D F7 03 60 
0310- 20 96 03 A9 25 8D FE FF 
Après saisie de ce code sous moniteur, 0318- A9 03 8D FF FF 20 00 DO 
vous le sauvegarderez par : 0320- 2C 82 CO 60 80 8D B1 03 
BSAVE DIM. VAR.OBJ,A$927C,L$18E 0328- 8C B2 03 68 8D B3 03 A5 
0330- 06 8D B4 03 A5 07 8D B5 





te. en RES ion ne 927C- A4 6B 84 18 0338- 03 68 85 06 68 85 07 A5 
9280- A4 6C 84 19 AO 05 84 08 0340- 06 DO 02 C6 07 C6 06 A0 
9440- FF FF FF FF FF FF FF FF 
9288- A2 00 86 07 86 1B 86 1C 0348- 02 B1 06 99 AD 03 88 10 
9448- FF FF FF FF FF FF FF FF 
9450- FF FF FF FF FF FF FF FF montent: rhnirintmlhre orale honte de hs à 
9298- 00 DO 04 E6 1B DO 35 C9 0358- 11 C9 7C FO OD 18 A5 06 
9458- FF FF FF FF FF FF FF FF 
92A0- 24 FO 11 C9 25 FO 33 C9 0360- 69 02 A8 A5 07 69 00 48 
9460- FF FF FF FF FF FF FF FF 
cadet peu FRERE de 92A8- C8 FO 21 C9 C9 FO 20 95 0368- 98 48 2C 24 03 10 09 2C 
nes 92B0- 06 E8 DO E2 E6 1D A5 07 0370- 81 CO 2C 81 CO 4C 7E 03 
* EPST NSP ER 92B8- 09 80 85 07 AO 01 B1 B8 0378- 2C 89 CO 2C 89 CO AD B4 
92C0- 20 BA 00 FO OF 20 B1 00 0380- 03 85 06 AD B5 03 85 07 
R ! ‘INP T’ 92C8- C9 C8 DO 03 4C 50 93 E6 0388- AC B2 03 AD B3 03 48 AD 
outine U 92D0- 1C 4C 50 93 20 E5 92 4C 0390- B1 03 28 20 AD 03 08 2C 
92D8- 11 93 E6 1D A5 06 09 80 0398- 24 03 10 09 2C 83 CO 2C 
Après avoir saisi ce code sous 92E0- 85 06 4C B4 92 AO 00 B1 03A0- 83 CO 4C AB 03 2C 8B CO 
moniteur, vous le sauvegarderez par : 92E8- 18 C5 06 DO 07 C8 B1l 18 03A8- 2C 8B CO 28 60 00 00 00 
BSAVE INPUT,A$300,L$23 92F0- C5 07 FO 1C 20 00 93 85 03B0- 60 00 00 00 00 00 
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e doute que personne 
n'ai jamais eu de 
problèmes de lecture ou 
de correction sur une 
ligne malheureusement trop 
grosse pour êre claire ou encore 
pour que le curseur puisse la 
parcourir d'une extrémité à 
l'autre. D'autre part, certains 
possèdent peut-être un 
CRUNCHER (celui du Pom's 22 
par exemple...), programme qui 
installe sur une même ligne 
plusieurs autres consécutives en 
les séparant avec les ‘deux-points’ 
(:) habituels. 


























Il est toutefois utile de pouvoir 
transformer son programme 
Applesoft afin qu'il n'y ait qu'une 
instruction par ligne car il est alors 
facile de lire un listing, de le 
comprendre et de le modifier. 
C'est ce que le DECRUNCHER 
est à même de faire. 


Comment faire ? 


Pour l'utiliser, il suffit de charger 
par un LOAD le programme Basic 
comme vous le faites d'habitude, 
puis de taper : 


BRUN DECRUNCHER ou 
CALL 35072 s'il est déjà en 
mémoire. 


Les changements que le 
DECRUNCHER effectue sont : 


° une instruction par ligne sauf 
après IF étant donné que ce qui 
le suit est conditionné par le 
test ; 

un renumérotage de 1 en 1 
avec modification des GOTO, 
GOSUB, DEL, des THEN, 
LIST, RUN lorsqu'ils sont 
suivis de numéros de ligne, et 
enfin, des ON XX GOTO/ 
GOSUB. 


Il existe toutefois quelques 
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limitations : 

+ le texte original écrit en Basic 
ne peut prendre plus de 14336 
octets soit 14 Ko, auquel cas il 
affichera : TEXTE TROP 
LONG ; 

+ ilne doit pas avoir plus de 640 
lignes à l'origine. (Le nombre 
de lignes qui résulte äu 
décrunchage n'est limité que 
par l'Applesoft lui-même) ; 

+ le programme décrunché ne 
doit pas pouvoir faire plus de 
18688 octets, soit 18,25 Ko. 
(Le programme décrunché 
étant généralement plus 
important que l'original) ; 

+ au cas où le programme 
découvre un GOTO, GOSUB, 
DEL, LIST, se référant à une 
ligne inexistante, il enverra : 
PAS DE LIGNE X. 


Le principe 


Il est tout d'abord nécessaire, 
voire indispensable d'étudier 
rapidement la structure du texte 
d'un programme Applesoft en 
mémoire. L'adresse de début du 
texte se trouve en TXTTAB 
($67.68) et la fin en PRGEND 
($AF.BO). Ce sont donc les octets 
situés entre ces deux adresses 
qu'il s'agira de traiter. Ce 
traitement se déroulera globa- 
lement ainsi : 


+ lire les 2 premiers octets qui 
représentent l'adresse de la 
prochaine ligne ; 

+ lire les 2 suivants qui ne sont 
autres que le numéro de la 
ligne ; 

*_ puis étudier la suite de la ligne 
afin de trouver ‘:’ ; 

* si on les trouve, marquer la fin 
de la ligne actuelle par un octet 
nul puis commencer une 
nouvelle ligne sur laquelle on 
mettra la suite ; 


Patrice 
Neveu 


* sinon, passer à la prochaine 
ligne. 


En cours de route, à chaque fois 
qu'on lira une nouvelle ligne de 
l'original, on mémorisera son 
numéro ainsi que celui de celle qui 
suivra. (N'oublions pas qu'il y a 
renumérotation !) Avec un tel 
processus, on obtient le 
programme décrunché, mais sans 
que les GOTO, GOSUB etc. 
soient modifiés. Une deuxième 
passe s'impose alors ; il faut : 


+ lire la ligne comme 
précédemment mais en 
cherchant tous les mots-clé 
susceptibles d'être suivis par 
un ou plusieurs numéros de 
ligne ; 

* identifier ce ou ces numéros et 
les rechercher dans la table 
construite précédemment ; 

* si on a trouvé, échanger 
l'ancien numéro par le nouveau 
qui est issu de la 
renumérotation ; 

* sinon, il y a une erreur et on 
s'arrête ; 

+ puis, si tout va bien, on passe 
à la prochaine instruction. 


Il est alors utilisable, mais mieux 
vaut le sauver avant car, s'il 
empiète sur la page graphique 1 et 
qu'il l'utilise, gare aux 
problèmes ! 


Enfin, à titre d'exemple, voici un 
listing et sa représentation en 
mémoire : 


10 TEXT : 
20 GOTO 10 


HOME 


0800- 00 09 08 OA 00 89 3A 97 
0808- 00 11 08 14 00 AB 31 30 
0810- 00 00 00 


$801.802 : adresse de la 
prochaine ligne 
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$803.804 : numéro de ligne 
$000A = 10 

$805 : token de TEXT 

$806 : : 

$807 : HOME 

$808 : fin de ligne 

$809.80A : adresse de la 
prochaine ligne 

$80B.80C : numéro de ligne 
$0014 = 20 

$80D : token de GOTO 

$80E.80F : codes ASCII de 1 


O0 TEXT 
1 HOME 
2 GOTO 0 


décrunché s'écrira ainsi : 


800- 00 07 08 00 00 89 00 OD 
808- 08 01 00 97 00 14 08 02 
810- 00 AB 30 00 00 00 


$801.802 : adresse de la 
prochaine ligne 

$803.804 : numéro de la ligne 

$805 : token de TEXT 


$80B : token de HOME 

$80C : fin de ligne 

$80D.80E : adresse de la 
prochaine ligne 

$80F.810 : numéro de la ligne 

$811 : token de GOTO 

$812 : code ASCII de 0 ($30) 

$813 : fin de ligne 

$814.815 : fin de programme 


Les adresses des lignes suivantes 


et les numéros de lignes sont 
moe ve $806 : fin de ligne inscrits avec l'octet bas suivi de 
$811.812 : fin de programme $807.808 : adresse de la l'octet haut. 
prochaine ligne Ci 
Le même programme mais  $809.80A : numéro de la ligne 
Programme 





Programme 
‘DECRUNCHER DEMO’ 
10 TEXT : HOME : INVERSE : PRINT " D 
EMONSTRATION DE DECRUNCHAGE “"z: NO 
RMAL : POKE 34,1 


20 PRINT "VOICI LE LISTING DE CE PROGRAMM 
E:": PRINT : LIST 

30 VTAB 22: FLASH : PRINT " FRAPPEZ UNE T 
OUCHE POUR LE DECRUNCHER PUIS FAITES 
LIST POUR VOIR LE RESULTAT";: GET R$: P 
RINT : NORMAL 

40 POKE 34,0: PRINT CHR$ (4)'"BRUN DECRUN 
CHER" 


Le même programme, 
mais ‘décrunché’ 


O TEXT 

1 HOME 

2 INVERSE 

3 PRINT " DEMONSTRATION DE DECRUNCHA 
GE ” 

4 NORMAL 


5 POKE 34,1 

6 PRINT “VOICI LE LISTING DE CE PROGRAMME 
7 PRINT 

8 LIST 

9 VTAB 22 

10 FLASH 

11 PRINT " FRAPPEZ UNE TOUCHE POUR LE DEC 
RUNCHER PUIS FAITES LIST POUR VOIR LE 
RESULTAT"; 

GET R$ 

PRINT 

NORMAL 

POKE 34,0 

PRINT CHR$ (4) "BRUN DECRUNCHER" 


kb 


[En 


o Un GO N 


‘DECRUNCHER.S 


Assembleur Big Mac 


z 

2 LST ON 

3 

4 ORG $8900 

5 OBJ $8000 

6 

7 
ÉREZZIZILIILIILIIIIIIIL11111111111111; 
9 * DECRUNCHER 1.3 * 
10 * * 


11 #AAARAXAARXXAPAR*PATRICENEVEU*** 


32 BASIC 
33 STXTPT 
34 STROUT 
35 GETADR 
36 AXFAC 
37 FIN 

38 LINPTR 
39 FOUT 

40 CROÛUT 
41 BELL 


43 LIMITE 


13 *AHHHIHAIARENEAAHIIHIIEHEFEAEHIHE 
* 


— UNE INSTRUCTION PAR LIGNE 
SAUF APRES 
— RENUMEROTATION DE 1 EN 1 
AVEC LES GOTO/GOSUB/RUN 
LIST/ON/DEL REMIS A JOUR 


* 
* 
* 
* 
* 
* 
21 * - SOURCE MAXIMUM: 14K 
* 
* - RESULTAT MAX. 
* 
* 
* 


EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 


EQU 


°IF! 


640 LIGNES 
: 18.25K 

64000 LIGNES# 
# 


He Ve Ve ie le Me Me Me Me he 


RRARRRRRRRRRRRRRRRRRRRRRRRRRRR RÉ 


$03D0 RETOUR À L'APPLESOFT 

$D697 
MET TXTPTR À LA VALEUR DE 
(TXTTAB) -1 

$DB3A SOUS-PROGRAMME D'AFFICHAGE 
D'UNE CHAINE 

$E752 FAC --> 2 OCTETS EN LINNUM 

$EBAO A&X --> FAC 

$EC4A NOMBRE FLOTTANT --> FAC PA 
R CHRGET 

$ED24 CONVERTIR ET AFFICHER X,A 
EN DECIMAL 

$ED34 FAC --> CHAINE DE CHIFFRE 

$FC62 RETOUR CHARIOT 

$FF3A BIP SONORE 

$4000 LES DEUX ZONES: $0800.3FFF 
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30 
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ESPACE  EQU $3800 
LINADR  EQU $06 
TXTPTRS  EQU $08 
NUMPTR  EQU $18 
LINLEN  EQU $1D 
ONFLAG  EQU $1E 
LISTFLAG EQU $1F 
LINNUM  EQU $50 
TXTTAB  EQU $67 
LOMEM EQU $69 
ARYTAB  EQU $6B 
STREND  EQU $6D 
HOHO EQU $9E 
MOH EQU $9F 
PGREND  EQU $AF 
CHRGET  EQU $B1 
CHRGOT  EQU $B7 
TXTPTR  EQU $B8 
DELFLAG  EQU $CE 
TEMP1 EQU $EB 
CHAINPTR EQU $EE 
REMFLAG  EQU $FC 
IFFLAG  EQU SFD 
ACC EQU $FE 
GUILLFLAG EQU $FF 
GUILL EQU $22 
DEL EQU $85 
GOTO EQU $AB 
RUN EQU $AC 
IF EQU $AD 
GOSUB EQU $BO 
REM EQU $B2 
ON EQU $B4 
LIST EQU $BC 
THEN EQU $C4 
A oo meme ee 
* INITIALISE 
Room om me em ee ee ee 
LDY #$EA 
LDX 43 
INIT LDA $BE,X 
STA TEMP1, X 
STY $BE,X 
DEX 
BPL INIT 
INX 
STX GUILLFLAG 
STX IFFLAG 
STX REMFLAG 
STX ONFLAG 
STX LISTFLAG 
STX DELFLAG 


/$4000.4900 
ETENDUE DE LA 1ERE ZONE 


ADRESSE LIGNE COURANTE 
SAUVEGARDE DE TXTPTR 
POINTEUR 

LONGUEUR NOUVELLE LIGNE 
1: ON XX, >=2: ON XX GOTO 
-0 SINON 


1 SI LIST (XXXX), O0 SINO 


Là 


REGISTRE CONTENANT LE NUME 
RO DE LIGNE 

DEBUT DU TEXTE BASIC 
DEBUT DE LA ZONE DES VARIA 
BLES SIMPLES 

DEBUT ZONE DES TABLEAUX 
FIN DES TABLEAUX, DEBUT DE 
ZONE LIBRE 

2EME OCTET DE FAC 

3EME OCTET DE FAC 

ADRESSE DE LA FIN DU TEXTE 
DU PROGRAMME 

PREND LE PROCHAIN CARACTER 

E DU TEXTE 

PREND LE CARACTERE POINTE 

ACTUELLEMENT 

POINTEUR DE CARACTERE DANS 
LE TEXTE 

= 1 SI DEL XXXXX (,XXXXX), 
=0 SINON 

4 OCTETS ($EB.EE), 
DE CHRGET 
POINTEUR DS LA CHAINE DU N 
O DE LIGNE 

=1 SI ON EST DANS UN REM, 
O0 SINON 

=1 SI ON EST DANS UN IF, 0 
SINON 

SAUVEGARDE DE L'ACCUMULATE 
UR 

=1 SI ON EST DANS UNE CHAI 
NE, O0 SINON 


PARTIE 


TOKENS APPLESOFT 


SEA = NOP 

ON VA DONC MODIFIER CHRGET 
(ET CHRGOT) 

EN Y METTANT 4 NOP AFIN D' 

EVITER DE 

SAUTER LES ESPACES DANS UN 
REM OU UNE 

CHAINE DE CARACTERES. 


REMETTRE X=0 POUR L'INITIA 
LISATION 

DU DRAPEAU À GUILLEMETS 

IF 

REMARQUES 

ON XXXXX GOTO/GOSUB 

LIST (XXXX, XXXX) 

DELETE XXXX (,XXXX) 


STX LINLEN 
STX LINNUM 
STX LINNUM+1 


#>TABLE 


TABPTR+2 


#<TABLE 
TABPTR+1 


#50 


#<TABLE 
CLR+1 
#>TABLE 
CLR+2 
#SFF 
#500 


CLR TABLE, Y 


LDA TXTPTR 
STA TXTPTRS 
LDA TXTPTR+1 
STA TXTPTRS+1 





DE LA LONGUEUR DE LA LIG 
ET DE SON NUMERO 


PREPARE LA TABLE OU SERO, 
RANGES LES 

ANCIENS NUMEROS DE LIGNE 
UIVIS DES 

NOUVEAUX... 


MAIS IL FAUT LA REMPLIR D 
$FF AVANT: 


* VERIFIE SI LE PROGRAMME PEUT 


* ETRE DECRUNCHE 


LDA PGREND+1 


CMP #>LIMITE 
BCC BEGIN 


C'EST LE HAUT DE LA FIN D 
PROGRAMME 

DEPASSE LA LIMITE FIXEE ? 
NON, ON PEUT Y ALLER... 


* ERREUR, IMPOSSIBLE A DECRUNCHER 
Eu  e e  e e e e me e e e  e e  e e 
LDY #>LENMSG 
LDA #<LENMSG 
JSR STROUT AFFICHER LE CHARMANT MESS 
GE QUI SUIT: 
JSR BELL SUIVI D'UN BIP DE MAUVAIS 
AUGURE 
UMP WAOU REMETTRE TOUT EN ORDRE AV, 
NT DE SORTIR 
LENMSG  HEX 8D REVENIR À LA LIGNE 
ASC "TEXTE TROP LONG" 
HEX 8D00 


STXTPT 


TXTTAB 


TXTPTR2+1 


LINADR 


TXTTAB+1 


#>ESPACE 


TXTPTR2+2 
LINADR+1 


FIXE TXTPTR AU DEBUT DU P. 
OGRAMME -1 

ADDITIONNE LA LONGUEUR DE 
L'ESPACE 

DISPONIBLE A L'ADRESSE DE 
DEBUT DU 

TEXTE -> TXTPTR2 POUR CHR 
UT 

-> LINADR 
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172 
173 


174 
175 
176 
277 
178 
179 
180 LIGNE 
181 


182 
183 
184 
185 
186 
187 
188 
189 


LIN 


LINCHR 


190 
191 


LINCHRS5 


192 
193 


194 


195 
196 
197 
198 
199 
200 
201 


LINCHR6 


LINCHR4 


202 


203 


204 
205 LINCHRI 


206 EOI 


207 


208 


209 
210 
211 DECRUNCH 
212 
213 


214 
215 
216 
217 
218 


219 


220 


221 
222 
223 
224 


225 
226 
227 DC1 
228 

223 BOL 


JSR 


LDA 


JSR 


CHRGET 


CHRPUT 
CHRGET 


#>ESPACE 
CHRPUT 


CHRGET 
NUMPTR 
CHRGET 
NUMPTR+1 
LINTAB 
LINPUT 
CHRGET 
ACC 

EOI 


ACC 
CHRPUT 


#REM 
LINCHRE. 


#1 


REMFLAG 
#IF 
LINCHR4 
#01 
IFFLAG 
#GUILL 
LINCHR1 
GUILLFLAG 
#$01 


GUILLFLAG 
LINCHR 


ACC 
DECRUNCH 
EOL 

BOL 
GUILLFLAG 
LINCHRS 
REMFLAG 
LINCHRS 
IFFLAG 
LINCHRS 
#0 

EOL 
LINADR 


CHRPUT 


LINADR+1 
CHRPUT 


LINNUM 
DC1 


LINNUM+1 
LIN 


CHRGET 


PREND & STOKE L'ADRESSE DE 
LA PROCHAINE 
LIGNE 


PREND LE NUMERO DE LA LIGN 
E 

À METTRE DANS NUMPTR POUR 
QUE LINTAB ET 

LINPUT S'EN SERVENT 


PRENDRE UN CARACTERE 


EOI=FIN D'INSTRUCTION:':", 
FIN DE LIGNE 


METTRE LE CARACTERE POUR L 
E RESULTAT 


MAIS CE N'EST PAS UN REM.. 


SINON IL FAUT SE LE SIGNAL 
ER 


SI CE N'EST PAS UN IF... 
AUTREMENT, LE SIGNALER 


SI CE N'EST RIEN DE TOUT C 
ELA 

SI PAS DE GUILLEMET (0) AL 
ORS DEVIENT 1 

SI ON EST DEJA DANS UNE CH 
AINE (1) CA 

DOIT DONC DEVENIR 0 

PASSE AU PROCHAIN CARACTER 
E 

CETTE FIN D'INSTRUCTION C' 
EST QUOI ? 

C'EST UN : ALORS CREER UNE 
AUTRE LIGNE 

SINON C'EST UNE FIN DE LIG 
NE (00) 


SI CE : ETAIT DANS UNE CHA 
INE, UN REM 

OU UN TEST (IF) ALORS ON N 
E DOIT PAS 

DECRUNCHER SOUS PEINE DE C 
ATASTROPHE ! 


CALCULER ADRESSE DE LA PRO 
CHAINE LIGNE 

QU'IL FAUT STOKER EN DEBUT 
DE LA LIGNE 

ACTUELLE ET AUSSI À LA FIN 
POUR LA 

PROCHAINE... 


INCREMENTE LE NUMERO DE LI 
GNE 
POUR FAIRE LA PROCHAINE... 


VA LE STOCKER PUIS LIT LA 
LIGNE 


IL FAUT PRENDRE LES 2 PROC 





HAINS OCTETS 


230 JSR CHRGET POUR SAVOIR SI ON À FINI 

231 BEQ FINI CE QUI EST LE CAS SI A=00 

232 LDA LINADR SINON ON REMPLACE CES 2 OC 
TETS 

233 JSR CHRPUT 

234 LDA LINADR+1 

235 JSR CHRPUT 

236 INC LINNUM ( EN FAIT ICI, ON EST EN D 
ECRUNCHAGE ) 

237 BNE BOL1 { MAIS ON FAIT PAREIL QUE 
PRECEDEMENT) 

238 INC LINNUM+1 

239 BOLI UMP LIGNE 

240 

241 FINI LDA #$0 METTRE 3 OCTETS NULS POUR 
MARQUER LA 

242 JSR CHRPUT FIN DU TEXTE DECRUNCHE 

243 JSR CHRPUT 

244 JSR CHRPUT 

245 JMP AJUSTE 

246 

247 

248 * C'EST DECRUNCHE, RENUMEROTE 

249 M 

250 

251 WAOU LDA #$00 MAINTENANT QUE LES GOTO ET 
GOSUB SONT 

252 JSR CHRPUT MIS À JOUR, ON MARQUE LA F 
IN DU PROGR. 

253 JSR CHRPUT QUI EST DORENAVANT TERMINE 

254 JSR CHRPUT 

255 LDA TXTPTRS REMET LE TXTPTR TEL QU'ON 
L'A TROUVE 

256 STA TXTPTR AVANT DE DECRUNCHER 

257 LDA TXTPTRS+1 

258 STA TXTPTR+1 

259 LDX #3 ET RETIRER LES NOP POUR RE 


METTRE CHRGET 












qe: 
dt ol 
et APPLE COMPUTER FRANCE 


recherche pour 
développer son Service Clientèle, des 


SUPPORTS TECHNIQUES 


e Possédant une très bonne connaissance de la 
micro-informatique. 

e Capables de proposer des solutions utilisant les produits 
APPLE. 

e Ayant le sens du service et de la communication. 

e Disponibles rapidement pour rejoindre Apple Computer 
France au siège des ULIS. 

e Connaissance technique du matériel, langages de pro- 
grammation, télécommunications souhaitée. 











Organisation et Publicite 













Merci d'adresser lettre manuscrite, C.V. 
et prétentions (sous réf. D 1231) à : 
Jean-Luc FARAT 

APPLE COMPUTER FRANCE 
Avenue de l'Océanie 

Z.A. de Courtabœuf - B.P. 131 

91944 LES ULIS Cedex. 
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260 FINI 


261 
262 
263 
264 


265 
266 
267 
268 
269 
270 
271 

272 
273 
274 
275 
276 
277 
278 
279 
280 
281 

282 
283 
284 
285 
286 
287 


288 
289 
290 
291 
292 
293 
294 


295 


296 


297 
298 


299 


300 
301 
302 


303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 


315 


316 


317 
318 
319 
320 
321 
322 


323 


324 
325 


326 


AJUSTE 


COPYLIN 


CHRCHGO 


CHRCHGOO 


CHRCHGO1 


CHRCHGO2 


TEMP1,X 
$BE, X 


FINI1 
TXTPTR2+1 


PGREND 
LOMEM 
ARYTAB 
STREND 
TXTPTR2+2 
PGREND+1 
LOMEM+ 1 
ARYTAB+1 
STREND+1 


TXTPTR2+1 
LINADR 


TXTTAB+1 
TXTPTR2+2 
LINADR+1 
#>LIMITE 
TXTPTR+1 


EOLO 
CHRGET 
CHRPUT 


CHRGET 
WAOU 


#>ESPACE 
CHRPUT 
CHRGET 


CHRPUT 
CHRGET 
CHRPUT 


ONFLAG 
#2 
GOFOUND 
LISTFLAG 
TESTNUM 
DELFLAG 
GOFOUND1 
CHRGET 


CHRPUT 
COPYLIN 


#ON 
CHRCHGO2 
ONFLAG 
CHRCHGOO 
#GOTO 
GOFOUND 


#GOSUB 
GOFOUND 
#RUN 


TESTNUM 


À SON ETAT D'ORIGINE 


ET FIXE DIFFERENTS POINTEU 
RS 


HOP, C'EST FINI 


INITIALISE: 
LA LONGUEUR DE LA LIGNE 
LE POINTEUR SOURCE 


LE POINTEUR RESULTAT 
L'ADRESSE DE LA LIGNE EN C 
OURS 


CALCULE ADR. LIGNE QUE L'O 
N COMMENCE 

PRENDRE L'ADRESSE DE LA LI 
GNE SUIVANTE 

ET LA STOCKER COMME RESULT 
AT 


SI LA PARTIE HAUTE EST NUL 
LE C'EST FINI 

SINON CE RESULTAT COMMENCE 
EN $0800 


C'EST AU TOUR DU NUMERO DE 
LIGNE 
CONTENU EN 2 OCTETS 


ON RECOPIE LA LIGNE EN REC 
HERCHANT UN 

SAUT (GOTO / GOSUB OU THEN 
XXXXX) 

00 SIGNIFIE UNE FIN DE LIG 
NE 


GOTO: TRAITEMENT SPECIAL D 
E LA SUITE 


GOSUB EGALEMENT 
LE RUN (XXXXX) EST TRAITE 
COMME UN THEN 


327 
328 
329 
330 
331 
332 
333 
334 
335 


336 


337 
338 
339 
340 
341 
342 


343 


344 


355 
356 


357 * TRANSFORME LA CHAINE EN 


358 
359 
360 
361 


362 


371 
372 
373 
374 
375 
376 


277 
378 


379 


380 


381 


382 


383 
384 


CHRCHGO3 


CHRCHGO4 


TESTNUM 


GOFOUND 
GOFOUND1 


GETEND 


IDENTIFY 


NEXTIDO 


JSR 


CMP 


BCC 


CMP 


BCS 


BCC 


INC 
JSR 


EQU 
JSR 


JSR 


EQU 





#LIST 
CHRCHGO3 
LISTFLAG 
CHRCHGO 
#DEL 
CHRCHGO4 
DELFLAG 
CHRCHGO 
#THEN 


CHRCHGO 


CHRGET 
#530 
CHRCHGO1 
#53A 
CHRCHGO1 


GETEND 


ONFLAG 
CHRGET 


* 


FIN 


GETADR 


#>TABLE 
NUMPTR +1 
#<TABLE 
NUMPTR 


#0 
(NUMPTR) ,Y 


LINNUM 


NEXTIDO 


(NUMPTR) , Y 
#250 

GOERR 
LINNUM+1 


CHANGE 


QUAND AU THEN, PEUT-ETRE.. 
CE N'EST RIEN DE TOUT CELA 
: CONTINUER 


ON PREND LE CARACTERE SUIV 
ANT LE THEN 

ASCII INFERIEUR AU CODE DE 
0 

AU QUEL CAS ON CONTINUE DE 
COPIER... 

SINON PEUT-ETRE EST-CE SUP 
ERIEUR À 9 ? 

ET ALORS ON COPIE BETEMENT 
LA SUITE 

SINON ON TRITURE LE NUMERO 
DE LIGNE !! 


POUR LES GOTO / GOSUB (ET 
ASSIMILES) 


GRACE A CHRGET ON CHARGE D 
ANS FAC LE NO 

PUIS ON LE TRANSFORME EN 2 
OCTETS 


ON SE PLACE AU DEBUT DE LA 
TABLE OU 

SONT RANGES LES ANCIENS NU 

MEROS DE 

LIGNES ET LEURS REMPLACANT 

S 


LE BAS DU VIEUX NUMERO DE 
LA TABLE EST 

COMPARE À CELUI QU'ON RECH 
ERCHE 

SI CE N'EST PAS LE MEME, À 
U SUIVANT ! 


PUIS ON PASSE AU HAUT DU N 

UMERO 

QUI DOIT ETRE INF. 249*256 

+255 = 63999 

SI C'EST PLUS ALORS ERREUR 
111 

SINON ON COMPARE AU HAUT R 

ECHERCHE 

ET ON LE CHANGE SI C'EST T 

ROUVE 


ON PASSE AU NUMERO SUIVANT 





Pom's n° 23 


385 


386 


387 


388 


389 


390 
391 


392 
393 


394 
395 
396 
397 
398 
399 
400 


401 
402 
403 


404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 


420 


421 


422 


423 
424 
425 
426 
427 
428 
429 
430 


431 
432 
433 
434 


435 
436 
437 
438 
439 
440 
441 
442 
443 


444 


NEXTID 


NEXTEND 


* ERREUR, 
* EST APPELE N'EXISTE PAS 


GOMSG 


CMP #$FF 


BEQ GOERR 


LDA NUMPTR 


CLC 


ADC #4 


STA NUMPTR 
BCC NEXTEND 


INC NUMPTR+1 
JMP IDENTIFY 


DE LA TABLE 

DES $FF SIGNALENT LA FIN D 
E LA TABLE 

ALORS LE NUMERO N'EST PAS 
TROUVE, ERR ! 

AUTREMENT, ON VA 4 OCTETS 
PLUS LOIN 

POUR TROUVER UN NOUVEAU NU 
MERO 

{ 2 POUR L'ANCIEN + 2 POUR 
LE NOUVEAU }) 


PAS DE RETENUE POUR L'ADDI 
TION 

SINON, EN TENIR COMPTE 

ET CA REPART POUR UN TOUR. 


UN NUMERO DE LIGNE QUI 


#>GOMSG 


#<GOMSG 
STROUT 
LINNUM+1 


LINNUM 
LINPTR 
CROUT 
BELL 
WAOU 


8D 


AFFICHER UN IGNOBLE MESSAG 
E D'ERREUR 


ON PREND LE NUMERO DE LIGN 
E RECHERCHE 


POUR L'AFFICHER 
PUIS ON PASSE À LE LIGNE 
AVEC UN BIP AGACANT 


"PAS DE LIGNE " 


* ICI S'EFFECTUE LE CHANGEMENT DE 
* NUMERO DE LIGNE 


WRITENUM 


WRITEND 


INY 


LDA (NUMPTR), Y 


STA MOH 


INY 


LDA (NUMPTR),Y 


STA HOHO 


LDX #$90 


SEC 
JSR AXFAC 
USR FOUT 


STY CHAINPTR+1 


STA CHAINPTR 
LDY #0 


ON POINTE DANS LA TABLE SU 
R LE NUMERO 

TROUVE APRES GOTO/GOSUB DO 
NC ON 

POURSUIT EN PRENANT LE NOU 
VEAU QUI EST 

ISSU DE LA RENUMEROTATION 
ET ON LE MET 


- DANS FAC. 


CECI EST PRESQUE UN LINPTR 
($ED24) 
CAR CA COMMENCE PAREIL, 


MAIS CA N'AFFICHE PAS FAC 
! 


LDA (CHAINPTR), YPRENDRE LA CHAINE REPRESEN 


BEQ WRITEND 


JSR CHRPUT 


INY 
BNE WRITENUM 


JSR CHRGOT 


JSR CHRPUT 


TANT LE 
NOUVEAU NUMERO, 
RE DANS LE 
PROGRAMME DECRUNCHE APRES 
LE GOTO 

LE GOSUB OU ENCORE LE THEN 


ET L'INCLU 


PUIS IL FAUT LIRE LE DERNI 
ER CARACTERE 
LU APRES LE NOMBRE ET LE C 





BEQ WRITEND1 


JMP CHRCHGO 
EQU * 
JMP COPYLIN 


WRITEND1 


EQU * 
JSR CHRPUT 


EOLO LDA LINADR 

LDX LINADR+1 
LDY #0 

CLC 

ADC LINLEN 

STA (LINADR),Y 


BCC EOL1 


INX 
TXA 
INY 
STA (LINADR),Y 


EOL1 


LDA (LINADR),Y 
TAX 

DEY 

LDA (LINADR),Y 
STA LINADR 
STX LINADR+1 
LDY #0 


STY LINLEN 
STY ONFLAG 


STY LISTFLAG 


STY DELFLAG 
STY GUILLFLAG 


STY IFFLAG 
STY REMFLAG 


RTS 


fm 


CHRPUT EQU * 


CLC 
TXTPTR2 STA $4000 
INC LINLEN 
INC TXTPTR2+1 
BNE CHRPUTEND 


INC TXTPTR2+2 


CHRPUTEND TAX 


RTS 





OPIER 
SI C'EST UN 0 -> FIN DE LI 
GNE 


SINON, SUITE DE LIGNE... 


END OF LINE CALCULE L'ADRE 
SSE DE LA 

LIGNE SUIVANTE EN ADDITION 
NANT LA 

LONGUEUR DE LA LIGNE ACTUE 
LLE ET SON 

ADRESSE DE DEBUT 


LE RESULTAT EST REMIS DANS 
LE PROGRAMME 

POUR CONSERVER SA COHERENC 
E 


CECI SERVIRA À LA LIGNE SU 
IVANTE 


ON VA RECOMMENCER UNE LIGN 
E DONC: 

LONGUEUR DE LA LIGNE = 0 
ON XXXX GOTO/GOSUB EST TER 
MINE 

LIST XXXXX, XXXXX EGALEMENT 
» AINSI QUE 

DEL XXXXX, XXXXX 

LA CHAINE DE CARACTERE ENT 
RE GUILLEMETS 

LE TEST AVEC IF 

LE REM OU IL NE FALLAIT RI 
EN CHANGER 


CETTE ROUTINE EFFECTUE LA 
TACHE OPPOSEE 

À CELLE DE CHRGET, 
R REMETTRE UN 
OCTET PRIS PAR CHRGET, 
S LE RESULTAT 

EN METTANT À JOUR LA LONGU 
EUR DE LA 

LIGNE. 


À SAVOI 


DAN 


CECI POUR CONSERVER LE REG 
ISTRE D'ETAT 


Lee rrrrerrrrrrr7777 


LINPUT LDA LINNUM 


JSR CHRPUT 
LDA LINNUM+1 


JSR CHRPUT 
RTS 


STOCKE LE NUMERO DE LA LIG 
NE ACTUELLE 

EN 2 OCTETS MIS EN LINNUM 
($50.51) 
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505 517 RTS 
DE RE nm mm mem 518 
507 519 LINTOTAB CLC 
508 LINTAB  LDA NUMPTR PRENDRE LE NUMERO DE LIGNE 20 TABPTR  STA TABLE 
DU PROGRAMME 521 INC TABPTR+1 IL FAUT BIEN-SUR FAIRE EVO 
509 JSR LINTOTAB ORIGINAL POUR LE METTRE DA LUER LE 
NS LA TABLE 522 BNE LNTTABEND POINTEUR (TABPTR) 
510 LDA NUMPTR+1 523 INC TABPTR+2 
511 JSR LINTOTAB 524 LNTTABEND RTS 
512 525 
513 LDA LINNUM ET.LETFAIRE SUIVRE DUSNOUV: 920 em 
EAU NUMERO 527 * TABLE DE CONVERSION DES LIGNES 
514 JSR LINTOTAB  QU'IMPLIQUE LA RENUMEROTAT °28 * COMMENCE ICI 
ION LORS DU DAS TR ETS RE 
515 LDA LINNUM+1  DECRUNCHAGE 530 
516 JSR LINTOTAB 531 TABLE EQU * 
| f LJ LA 
Récapitulation a 
£ ; 89D0- 89 A5 FE DO 06 20 70 8B 8AD8- 30 90 CC C9 3A 
DECRUNCHER 89D8- 4C FF 89 A5 FF DO DO A5 8AE0- 05 E6 1E 20 B1 00 20 4A 
89E0- FC DO CC A5 FD DO C8 A9 8AE8- EC 20 52 E7 A9 8B 85 19 
Après avoir saisi ce code sous 89E8- 00 20 70 8B A5 06 20 A0 8AF0- A9 DD 85 18 A0 00 B1 18 
moniteur, vous le sauvegarderez par 89F0- 8B A5 07 20 AO 8B E6 50 8AF8- C5 50 DO 0B C8 B1 18 C9 
BSAVE DECRUNCHER,A$8900,L$2DD 89F8- DO 02 E6 51 4C A5 89 20 8B00- FA B0O 16 C5 51 FO 38 C9 
8A00- B1 00 20 B1l 00 FO 13 A5 8B08- FF FO 0E A5 18 18 69 04 
8900- AO EA A2 03 B5 BE 95 EB 8A08- 06 20 AO 8B A5 07 20 A0 8B10- 85 18 90 02 E6 19 4C F4 
8908- 94 BE CA 10 F7 E8 86 FF 8A10- 8B E6 50 DO 02 E6 51 4C 8B18- 8A A0 8B A9 30 20 3A DB 
8910- 86 FD 86 FC 86 1E 86 1F 8A18- 98 89 A9 00 20 AO 8B 20 8B20- A5 51 A6 50 20 24 ED 20 
8918- 86 CE 86 1D 86 50 86 51 8A20- A0 8B 20 A0 8B 4C 5F 8A 8B28- 62 FC 20 3A FF 4C 28 8A 
8920- A9 8B 8D D3 8B A9 DD 8D 8A28- A9 00 20 A0 8B 20 AO 8B 8B30- 8D DO C1 D3 A0 C4 C5 A0 
8928- D2 8B A2 00 A9 DD 8D 3B 8A30- 20 AO 8B A5 08 85 B8 A5 8B38- CC C9 C7 CE C5 AO 00 C8 
8930- 89 A9 8B 8D 3C 89 A9 FF 8A38- 09 85 B9 A2 03 B5 EB 95 8B40- B1 18 85 9F C8 Bl 18 85 
8938- AO 00 99 DD 8B C8 DO FA 8A40- BE CA 10 F9 AD A2 8B 85 8B48- 9E A2 90 38 20 AO EB 20 
8940- EE 3C 89 E8 EO OA DO F2 8A48- AF 85 69 85 6B 85 6D AD 8B50- 34 ED 84 EF 85 EE AO 00 
8948- A5 B8 85 08 A5 B9 85 09 8A50- A3 8B 85 BO 85 6A 85 6C 8B58- B1l EE FO 06 20 A0 8B C8 
8950- A5 BO C9 40 90 1F AO 89 8A58- 85 6E 68 68 4C DO 03 A2 8B60- DO F6 20 B7 00 20 AO 8B 
8958- A9 63 20 3A DB 20 3A FF 8A60- 00 86 1D 86 B8 E8 8E A2 8B68- FO 03 4C 96 8A 4C 76 8A 
8960- 4C 28 8A 8D D4 C5 D8 D4 8A68- 8B 86 06 A5 68 8D A3 8B 8B70- 20 A0 8B A5 06 A6 07 A0 
8968- C5 A0 D4 D2 CF DO AO CC 8A70- 85 07 A9 40 85 B9 20 73 8B78- 00 18 65 1D 91 06 90 01 
8970- CF CE C7 8D 00 20 97 D6 8A78- 8B 20 B1 00 20 AO 8B 20 8B80- E8 8A C8 91 06 B1 06 AA 
8978- A4 67 8C A2 8B 84 06 A5 8A80- B1 00 FO A4 38 E9 38 20 8B88- 88 B1 06 85 06 86 07 A0 
8980- 68 18 69 38 8D A3 8B 85 8A88- A0 8B 20 B1 00 20 AO 8B 8B90- 00 84 1D 84 1E 84 1F 84 
8988- 07 20 B1 00 20 AO 8B 20 8A90- 20 B1 00 20 A0 8B A6 1E 8B98- CE 84 FF 84 FD 84 FC 60 
8990- B1 00 18 69 38 20 AO 8B 8A98- EO0 02 BO 45 A6 1F DO 34 8BA0- 18 8D 00 40 E6 1D EE A2 
8998- 20 B1 00 85 18 20 B1 00 8AA0- A6 CE DO 3F 20 B1 00 20 8BA8- 8B DO 03 EE A3 8B AA 60 
89A0- 85 19 20 BB 8B 20 B0 8B 8AA8- A0 8B FO CA C9 B4 DO 04 8BB0- A5 50 20 AO 8B A5 51 20 
89A8- 20 B1 00 85 FE FO 22 A5 8AB0- E6 1E DO FO C9 AB FO 29 8BB8- A0 8B 60 A5 18 20 DO 8B 
89B0- FE 20 A0 8B C9 B2 DO 04 8AB8- C9 BO FO 25 C9 AC FO 14 8BC0- A5 19 20 DO 8B A5 50 20 
89B8- A9 01 85 FC C9 AD DO 04 8AC0- C9 BC DO 04 E6 1F DO CE 8BC8- DO 8B A5 51 20 DO 8B 60 
89C0- A9 01 85 FD C9 22 DO 06 8AC8- C9 85 DO 04 E6 CE DO C6 8BD0- 18 8D DD 8B EE D2 8B DO 
89C8- A5 FF 49 01 85 FF 4C A8 8AD0- C9 C4 DO C2 20 B1 00 C9 8BD8- 03 EE D3 8B 60 


Max : 


Jacques Supernant 






le moniteur étendu 


Apple J[+, /e, Je 
Ce moniteur autorise un contrôle de l'exécution des routines en langage machine 


Un mode Trace et Pas à Pas très évolués et sélectifs sont complétés 
par un accès direct aux registres du 6502 (ou 65C02). 

La gestion des fenêtres d'écran simplifie le mode trace. 

Une routine permet la recherche de suites d'octets. 

Un mini-assembleur très souple fait partie de Max. 

Une ligne de commande peut devenir une boucle avec l'ordre JUMP 





Disquette et 
documentation : 
150,00 F TTC 
franco . Bon de 

commande 






















page74. 
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Fan Koerjg 


e problème : Vous 
disposez d'une routine 
binaire conçue pour 
l'Apple //c ou le nouvel 
Apple //e. Pour l'adapter à votre 
machine, dépourvu du 65C02, le 
listing désassemblé est indis- 
pensable. Comment l'obtenir ? 


Jusqu'à présent, nous ne 
disposions que du désassemblage 
manuel à l'aide de la liste des 
codes, solution lente et source de 
nombreuses erreurs ; un nouveau 
désassembleur devenait donc 
indispensable. 


Le programme ci-dessous vous 
permettra de franchir sans 
difficulté la première partie de 
votre travail : on copie en RAM le 
moniteur et on le modifie pour 
qu'il s'ouvre aux STZ, TRB et 
autres INA. Le fichier ‘CODEC’ 


n'est qu'un exemple. . 





Source 


‘DESASM/RAM.S' 
Assembleur Big Mac 


1 
2 ###hhhéhitttétititiéitédtédatétss 
3 * 

4 * APPLE II ** DESASSEMBLEUR 65C02 
5 * 

6 * Version RAM. 

7 *# 

8 * par Y.KOENIG 

9 * le 11/03/85 

10 * 

11 ththttttiiitétitététttititiédéé## 


12 * 


13 * Ce programme copie le MONITEUR 
14 * en RAM et le mdifie en 

15 * s'inspirant du MONITEUR //c 

16 * afin de permettre de 

17 * désassembler les codes du 65C02 
18 * 

19 * Ctrl Y bascule d'un moniteur 
20 * à l'autre. 

21 * Le désassemblage se fait alors 
22 * avec la syntaxe habituelle. 

23 * 

24 #hhtthtñtédttttéé#tttitiéétatiidéés 
25 

26 ORG $803 

27 

28 LOCO = $0 61 

29 LENGTH = $2F 

30 A1L = $3C £3D 


désassembleur 65Co2 


85 LOOP2 


91 LOOP3 


JSR 


$3E 63F 
$42 643 
$45 


$3F8 
$7F8 


$r962 
$FA9B 
$SFAC7 
$FAE4 
$FAFF 
$FCC9 
HEADR+1 
$FDDA 
$FE2C 
$FECD 


$co81 


$co81 pour écrire 


A2L+1 
#>$D000 
AlL+1 
A4L+1 
#<$Dp000 
AlL 


copie le mo 


niteur et applesoft en RAM 


LDA 
STA 
e 
STA 
LDA 
STA 
STA 


BNE 


#5c9 
SFFF3 annule Writ 
SFFFS annule Read 
#582 
$FFDC 
SFFDE 


+589 
$r919 
#583 
$F91Fr 


#3 
#$EA 
$r895,X 


"NOP" 


LOOP 1 dépose 4 NO 


#$rc 
$F8A6 


ANFS8AF-NFAF4-1 
NFAF4, X 
SFAF4, X 


LOOP2 
SNFAF4-NFAB6-1 
NFAB6, X 

$FAB6, X 

LOOP3 
#NNRITE-NFMT1 
NFMTI1-1,X 
FMTI-1,X 


LOOP 4 copie la no 


uvelle table 


LDX 
LDA 
STA 
DEX 


#NHEADR-NWRITE-1 
NWRITE, X 
NRITE, X 


106 BPL LOOP5 
TCHE dans WRITE 


copie le PA 


107 

108 LDX #NFAB6-NHEADR-1 

109 LOOP6 LDA NHEADR, X 

110 STA HEADR, X 

111 DEX 

112 BPL LOOP6 copie la ta 
ble dans HEADR 

113 

114 LDX  #N3C2-NF8AF-1 

115 LOOP7 LDA NF8AF,X 

116 STA S$F8AF,X 

117 DEX 

118 BPL LOOP7 copie 2 ins 
tructions 

119 

120 BIT $Cc082 protège la 
RAM 

121 

122 LDA #<$3C2 

123 STA CTRLYV+1 

124 LDA #>$3C2 

125 STA CTRLYV+2 Initialise 
ctri Y 

126 LDX #FIN-N3C2-1 

127 LOOP8 LDA N3C2,Xx 

128 STA $3C2,Xx 

129 DEX 

130 BPL LOOP8 

131 JMP $3D0 C'est fini 

1 

132 

133 NFMT1 HEX OF22FF33CB62FF730322FF 
33CB66FF77 

134 HEX O0F20FF33CB60FF700F22FF 
39CB66FF7D 

135 HEX O0B22FF33CBA6FF731122FF 
33CBA6FF8 7 

136 HEX 0122FF33CB60FF700122FF 
33CB60FF70 

137 HEX 24316578 

138 FMT2 HEX 00218182594D9192864A85 
9D495A 

139 * ATTENTION, astuce Apple, CHAR2 com 
plète FMT2 

140 CHAR2 ASC "Y" 

141 BRK 

142 ASC "X$$" 

143 BRK 

144 CHARI1 ASC ",),#($" 

145 

146 MNEML HEX 1C8A1C235D8B1BA19D8A1D 
239D8B1DA1 

147 HEX 1C2919AE69A81923245318 
23245319A1 

148 HEX  ADIAS5B5BA5692424AEAEA8 
AD298A7C88 

149 HEX 159C6D9CA5692953841334 
11456923A0 

150 * 

151 * 

152 MNEMR HEX D8625A48266294885444C8 
546844E894 

153 HEX C4B4088474B4286E74F4CC 
4A72F2 

154 HEX A48A06AAA2A27474747244 
6882328272 

155 HEX 22721A1A2626727288C8C4 
CA26484444 

156 HEX A2C8 

157 

158 


159 * À recopier en WRITE 
160 NWRITE RTS 
161 PATCHE AND #3 


162 STA LENGTH 
163 DECODNEN TYA 
164 LDX #22 


165 DECODO CMP 


NNEWOP, X 
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166 BEQ DECODI1 201 HEX 9E STZ abs,x 235 JMP NXTBYT 








167 DEX 202 HEX B2 LDA (zp) 236 TOFIXSEV JMP FIXSEV 
168 BPL DECODO 203 HEX D2 CMP (zp) 237 
169 RTS 204 HEX F2 SBC (zp) 238 * À recopier en $FAB6 
170 DECODI LDA NNEWOP+NEWOPO-NEWOP, X 205 HEX FC INVALIDE -> 239 NFAB6 BNE FABE 
171 LDY #0 N©Œ 240 HEX 8A8BA5ACO0 ;Fin table 
172 RTS 206 NEWOPO HEX 38 MNEML 
173 207 HEX FB 241 HEX EA 
174 NEWFAF4 LDA ACC+5,X 208 HEX 37 242 FABE STX LOCO 
175 JSR PRBYTE 209 HEX FB 243 STA LOCO+#1 
176 INX 210 HEX 39 244 NSLOOP  LDY #7 
177 BMI TORDSP1 211 HEX 21 245 JMP  HEADR+NEWSLOOP-NHEADR 
178 RTS 212 HEX 36 246 NNXTBYT LDA (LOC0),Y 
179 TORDSP1 JMP RDSP1 213 HEX 21 247 CMP DISKID-I,Y 
180 214 HEX 3A 248 BNE NSLOOP 
181 * À recopier en HEADR 215 HEX F8 249 
182 NHEADR RTS 216 HEX FA 250 * À recopier en $FAF4 
183 NEWOP HEX 12 ORA (zp) 217 HEX 3B 251 NFAF4 JMP  WRITE+NENFAF4-NWRITE 
184 HEX 14 TRB 2p 218 HEX FA 252 HEX DA 
185 HEX lA INA 219 HEX F9 253 HEX 747476C600 ;Fin de tab 
186 HEX 1C TRB abs 220 HEX 22 le MNEMR 
187 HEX 32 AND 2p 221 HEX 21 254 
188 HEX 34 BIT zp 222 HEX 3C 255 NF8AF JSR WRITE+PATCHE-NWRITE 
189 HEX 3A DEA 223 HEX FA 256 BEQ *+26 
190 HEX 3C BIT abs,X 224 HEX FA 257 
191 HEX 52 EOR (zp) 225 HEX 3D 258 * À recopier en $3C2 
192 HEX 5A PHY 226 HEX 3E 259 N3C2 LDA $3CD 
193 HEX 64 STZ zp 227 HEX 3F 260 EOR #$81 
194 HEX 72 ADC zp 228 HEX FC 261 CRA #$80 
195 HEX 74 STE 2p,X 229 262 STA $3CD 
196 HEX 7A PLY 230 NEWSLOOP DEC LOCO+1 263 BIT $C081 
197 HEX 7C JMP abs(X) 231 LDA LOCO+1 264 RTS 
198 HEX 89 BIT imm 232 CMP 4#$C0 265 FIN = * 
199 HEX 92 STA (2p}) 233 BEQ TOFIXSEV 266 LST OFF 
200 HEX 9C STZ abs 234 STA MSLOT 
Récapitulation 


Comment faire ? ‘DESASM/RAM' 


Pour désassembler les codes du 65C02, il suffit de faire : 


+ _ BRUN DESASM/RAM ; Après avoir saisi ce code sous 
° charger un fichier binaire comprenant les nouvelles instructions, le moniteur, vous le sauvegarderez par 
fichier ‘CODEC par exemple ; BSAVE DESASIWRAM,A$803,L$216 


+ passer en moniteur (CALL -151). En utilisant alors la commande L 
; j ; 299. 

du moniteur, vous obtiendriez de nombreux ‘???", ne 

* faire CTRL Y <RETURN® ; 0810- DO 85 3D 85 43 AO 00 84 

* utiliser alors la commande L (avec l'exemple CODEC, faire 300L). dE OT NS DURS 20 00 


Vous obtenez : 0820- 8D F3 FF 8D F5 FF A9 B2 
0828- 8D DC FF 8D DE FF A9 B9 


0803- 2C 81 CO 2C 81 


0300 DA PHR 0830- 8D 19 F9 A9 B3 8D 1F F9 
0301- 80 03 BRA  $0306 0838- A2 03 A9 EA 9D 95 F8 CA 
0303- IA INC 0840- 10 FA A9 FC 8D A6 F8 A2 
0304-  3A DEC 0848- 08 BD FD 09 9D F4 FA CA 
0305- SA PHY 0850- 10 F7 A2 17 BD E5 09 9D 
0306- FA PLX 0858- B6 FA CA 10 F7 A2 DE BD 
0307- 7A PLY 0860- A3 08 9D 61 F9 CA DO F7 
0308- 9C 03 03 STZ $0303 0868- A2 22 BD 82 09 9D CD FE 
030B- 9E 04 04 STZ $0404,X 0870- CA 10 F7 A2 3F BD A5 09 
030E- 64 06 STZ  $06 0878- 9D C9 FC CA 10 F7 A2 04 

0880- BD 06 OA 9D AF F8 CA 10 
0310- 74 07 STZ  $07,X 0888- F7 2C 82 CO A9 C2 8D F9 
0312- 1C 02 02 TRB  $0202 0890- 03 A9 03 8D FA 03 A2 OD 
0315- 14 09 TRB  $03 0898- BD 0B OA 9D C2 03 CA 10 
0317- OC 09 09 TSB  $0909 08A0- F7 4C DO 03 OF 22 FF 33 
031A- 04 04 TSB  $04 08A8- CB 62 FF 73 03 22 FF 33 
031C- 89 08 BIT #$508 08B0- CB 66 FF 77 OF 20 FF 33 
031E- 20" 07"07 UMP ($0707,X) 08B8- CB 60 FF 70 OF 22 FF 39 
0321- 3C 06 06 BIT  S$0606,X 08C0- CB 66 FF 7D 0B 22 FF 33 
0324- 12 07 ORA (507) 08C8- CB A6 FF 73 11 22 FF 33 
0326- 92 05 STA ($05) 08D0- CB A6 FF 87 01 22 FF 33 


08D8- CB 60 FF 70 01 22 FF 33 
+ CTRL Y vous permet de passer du désassembleur original au 08E0- CB 60 FF 70 24 31 65 78 


désassembleur enrichi. 08E8- 00 21 81 82 59 4D 91 92 
08F0- 86 4A 85 9D 49 5A D9 00 
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08F8- D8 A4 A4 00 AC A9 AC A3 0980- A2 C8 
0900- A8 A4 1C 8A 1C 23 5D 8B 0988- A2 16 
0908- 1B A1 9D 8A 1D 23 9D 8B 0990- 10 F8 
0910- 1D A1 1C 29 19 AE 69 A8 0998- 60 B5 
0918- 19 23 24 53 1B 23 24 53 09A0- 01 60 
0920- 19 A1 AD 1A 5B 5B A5 69 09A8- 1A 1C 
0928- 24 24 AE AE A8 AD 29 8A 09B0- 64 72 
0930- 7C 8B 15 9C 6D 9C A5 69 09B8- 9E B2 
0938- 29 53 84 13 34 11 A5 69 09C0- FB 39 
0940- 23 A0 D8 62 5A 48 26 62 09C8- 3B FA 
0948- 94 88 54 44 C8 54 68 44 09D0- 3D 3E 
0950- E8 94 C4 B4 08 84 74 B4 09D8- C9 CO 
0958- 28 6E 74 F4 CC 4A 72 F2 09E0- C7 FA 
0960- A4 8A 06 AA A2 A2 74 74 09E8- 8B A5 
0968- 74 72 44 68 B2 32 B2 72 09F0- 01 A0 
0970- 22 72 1A 1A 26 26 72 72 09F8- D9 FE 
0978- 88 C8 C4 CA 26 48 44 44 0A00- DA 74 


Basicium. 
le Basic 
enrichi 


60 


DD CA FC 


60 
4A 


Cet utilitaire vous permet de : 


Imprimer 
l'écran Fe ou 80 colonnes 


Nettoyer mémoire très 
rapidement par “]F". 


Gérer des. messages, la 
réponse étant contrôlée. 


Pom's n° 23 


23 03 


BD E1 
20 DA 
E4 FA 
34 3A 
7A 7C 
F2 FC 
36 21 
22 21 
FC C6 
06 8D 
9B FA 
00 EA 
4c F8 
DO F4 
76 C6 


2F 98 0A08- FE FO 18 AD CD 03 49 81 
C4 CA 0A10- 09 80 8D CD 03 2C 81 CO 
A0 00 0A18- 60 


#% Fichier exemple 


12 14 
52 58 ‘CODEC’ 
92 9c 

FB 37 Après avoir saisi ce code sous 

F8 FA moniteur, sauvegardez-le par 

FA FA BSAVE CODEC,A$300,L$29 

A5 01 

07 4C 0300- DA 80 03 1A 3A 5A FA 7A 
06 8A 0308- 9C 03 03 9E 04 04 64 06 
00 85 0310- 74 07 1C 02 02 14 09 OC 
B1 00 0318- 09 09 04 04 89 08 7C 07 
E4 FE 0320- 07 3C 06 06 12 07 92 05 
20 CE 0328- 00 


- Gérard M ichel 
Apple JI+, {le (6502) 


Gérer des masques 40 ou 60 
colonnes. Ces écrans, définis lors 
de la programmation, s'affichent 

par la pie Commenté . / 4. 


_ Saisir toutes les variables d'un 
‘écran en une seule sis 7 ” 


longueur. 


Mais aussi, ne saisir que l'une des 


_ variables affectées à un écran, les 


afficher, les effacer, etc. 


x ände page 74) 
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Tant qu'à faire 5 choses à la fois 


Que ceux qui 
aiment travailler en 
faisant deux ou trois 
choses à la fois ne 
changent rien, au 
contraire, avec 
Apple et Jazz ils 
ru peuvent faire mieux. 

Jazz de Lotus, c’est un programme 
créé pour Macintosh 512 Ko, équipé d'un 
lecteur externe qui permet de devenir un 
parfait jongleur professionnel. 

Cinq programmes en concert, 
c'est-à-dire un tableur, un grapheur, un 
gestionnaire de fichier, un traitement de 
texte et un programme de 
communication réunis en un seul 
programme. Ou comment être à cinq 
sur la même souris. 








Pouvoir gérer cinq applications à 
partir d’un seul écran, modifier une 
donnée dans une application et qu’elle 
se modifie automatiquement dans les 
autres, pouvoir sauter d'un graphe à un 
traitement de texte sans attendre les 
secondes qui durent une éternité pour 
changer de programme, c'est bien. 

Quand on s'aperçoit que ces cinq 
programmes sont individuellement 
excellents, c'est une révolution. 

Jazz, c'est l'outil idéal d’un directeur 
de service. 

Prenons un exemple qui exige beaucoup 
de souplesse, de rapidité, et de doigté, la 
direction des services secrets : 

- Avec un tableur capable d'afficher 
8192 lignes sur 256 colonnes, la gestion 
devient beaucoup plus facile. Si un fait 






















nouveau apparaît, rien n'est plus facile 
que d'étudier deux ou trois hypothèses 
afin de ne pas être pris de court. 

- Quand un projet est fin prêt, il faut 
bien le présenter à ses supérieurs et 
parfois même beaucoup plus haut; un 
grapheur permet de transformer toutes 
les données numériques obscures en 
graphiques lumineux. 





- Si le projet est accepté, un traitement 
de texte est nécessaire pour que chaque 
agent concerné soit au courant dans ses 
moindres détails. Evidemment quand 
on travaille dans un tel service il vaut 
mieux pour Macintosh pouvoir copier, 
effacer, modifier, ou coller des dessins, à 
chaque instant. 







Apple Computer France. Avenue de l'Océanie 


autant les faire en même ternps. 
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Apple, le logo Apple sont les marques déposées d’Apple Computer, Inc. 


Jazz. est une marque déposée de Lotus Development Corporation. 


Feuille de travail Jazz. 





Grâce à son gestionnaire de fichier, Jazz 
fait la fusion automatique entre un 
mémo et une liste de correspondants à 
sélectionner selon un critère spécial. 

Et avec un modem full duplex 1200 bauds 
en un instant votre correspondant 
reçoit toutes les informations précises à 
l'autre bout du monde. 

Avec Jazz l’entreprise est rentable, 
rondement menée, précise et discrète, 
inutile d’avoir 35 collaborateurs pour 
rédiger le projet. 

Jazz c'est cinq programmes liés 
entre eux si parfaitement que l'agent 
double est enfin enterré, place à l'agent 
quintuple. 
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C'est à l'imagination du 
mathématicien Conway que nous 
devons le Jeu de la Vie. Il ne 
s'agit d'ailleurs pas réellement 
d'un jeu puisqu'une fois la 
position de départ définie, 
l'utilisateur ne peut qu'assister à 
l'évolution de la ‘population’, 
évolution qui ne laisse aucune 
place au hasard. 


L'hypothèse 


Conway a conçu ce jeu sur les 
bases suivantes : 

La population est constituée de 
cellules qui seront représentées 
par un point à l'écran. 





Chaque cellule peut avoir jusqu'à 
8 voisines et cet entourage en 
détermine la survie : 

+ O0 ou 1 cellule adjacente : mort 
par isolement ; 

+ 2 cellules : survie ; 

+ 3 cellules adjacentes à une 
position vide : naissance ; 

+ plus de 4 cellules : mort par 
étouffement. 


La position définie plus haut se 


Fichier ‘Vie.Job’ 


(Exec) 

Asm Vie.Asm Exec Edit 
Link Vie.Link Exec Edit 
RMaker. VeR Finder Edit 


eu de la Vie 


présenterait ainsi à l'étape 
suivante : 





Le programme 


Le présent programme, écrit en 
assembleur, respecte toutes les 
conventions du Macintosh, 
menus, fenêtres, gestion des 
accessoires 

La cellule de base est un point 
écran, ce qui représente 164864 
position à gérer. Il est possible 
d'agrandir une zone de 46 * 64 
points, de la sauvegarder, de la 
recharger. 


Sur la disquette d'accompa- 
gnement Mac 23, vous trouverez 
des positions de départ 
particulières prêtes à charger, 
positions qui génèrent toujours 
des naissances par exemple. 

La surface d'évolution de la 
population est ‘torique” : la partie 
droite de l'écran touche la partie 
gauche. Il en va de même pour le 
haut et le bas de l'écran ; ainsi on 
ne touche jamais un bord de la 
surface. 


A l'aide des différentes options 


Source ‘Vie.Asm’ 


INCLUDE  Viel.Asm 


INCLUDE  Vie2.Asm 
INCLUDE  Vie3.Asm 
INCLUDE  Vie4.Asm 
END 


Dominique Berrardi 


des menus vous trouverez 
facilement comment définir une 
position de départ, aléatoire ou 
non, observer les évolutions en 
pas à pas ou en continu, les 
compter, les interrompre etc. 


Un antécédent 


Il est indispensable de signaler ici 
le programme de Bill Atkinson. 
La cellule de base est une petite 
bille inscrite dans un carré de 
8*8 points. Le nombre de 
cellule à gérer est évidemment 
moindre mais le résultat est alors 
d'une rapidité stupéfiante. 


N.D.L.R. : le programme 
tourne indifféremment sur un Mac 
512Ko ou un Mac 128Ko. En 
revanche, le chargement et 
l'édition des sources sont 
problèmatiques sur un 128Ko ; la 
disquette d'accompagnement Mac 
23 contient donc les fichiers 
sources en deux versions : 


+ celles dont les noms débutent 
par ‘Vie’, listées page 
suivantes et destinées aux 
Macs 512Ko ; 

+ celles dont les noms débutent 
par ‘Vie128.', sauvegardées 
sans remarques et destinées, 
bien sûr , aux Macs 128K0. 


G 


Fichier ‘Vie.Link'’ 
1 
Vie 


/Output Vie.Code 
/Type TEMP' 


$ 
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‘Vie1.Asm’ 


Source 


; Le tableau principal occupe tout l'écran sauf la barre 
; de menu. Il est formé de 322 lignes de 512 points. 

; En fai, il est torique, c'est à dire que ce qui sort par la 
; gauche réapparait à droite etc. On peut aussi 

; agrandir un rectangle 46 x 64 extrait de ce tableau 

; (‘basse résolution’), mais le calcul se fait toujours sur 
; le tableau complet. C'est seulement dans le mode 

; basse résolution que l'on peut changer l'état du jeu 
; en cliquant sur les ‘pixels’ pour les inverser. La 

; procédure est la même que sous la loupe de 

; MacPaint. !l y a quatre menus: le menu Pomme, le 

; menu Fichier, ke menu Edition, et le menu Contrôle. 
; Le menu Pomme presente les accessoires de 

; bureau et C'est la Vie... Les accessoires de bureau 

; devraient tous fonctionner, et le jeu peut tourner 

; avec l'horloge pour chronométrer, par exemple. 

; Toutefois, comme on ne peut pas activer le tableau 

; principal, l'accessoire est normalement actif et 

; intercepte les équivalents clavier (l'horloge, par 

; exemple, les rejette avec un bip désapprobateur. Le 
; seul moyen de désélectionner les accessoires sans 
; les fermer est d'activer la fenêtre du compteur. Le 

; menu Fichier permet de repartir à zéro (nouveau), de 
; lire ou d'écrire sur disque le contenu du petit 

; rectangle et de quitter le programme. Le menu 

; Edition sert aux accessoires de bureau et pour éditer 
; le rectangle, copier et coller échangent son contenu 
; avec celui d'un tampon, effacer agit uniquement sur 
; Ce rectangle contrairement à l'article nouveau du 

; menu Fichier. Le menu Contrôle permet de démarrer 
; et d'arrêter, ou de calculer une seule ou plusieurs 

; generations, de changer la résolution et de faire 

; apparaître le compteur. Ce dernier affiche en 

; première ligne le numéro de la génération affichée et 
; en deuxième ligne le nombre de cellules vivantes. 

; Enfin, on peut remplir le tableau de points 

; aleatoirement noirs ou blancs, la probabilité pour 

; chaque point d'être noir étant réglable (article 

; Probabilité.…) 


Jane eee Registres 
statusReg  EQU D ; nombre de générations 
; et flags ci-dessous 
runBit EQU 16 ; on court ? 
countBit EQU 17 ; le compteur est visible ? 
resBit EQU 18 ; Haute résolution ? 
deterBit EQU 19 ; La couleur du pixel à 
; mettre est connue ? 
colorBit EQU 20 ; bits 19 et 20 = 1 <=> 
; c'est du noir 
quitBit EQU 21 ; Quitter a été 
; sélectionné ? 
ModifyReg EQU D4 ; état du bouton, des 
; touches spéciales eic. 
MenuReg  EQU DS ; ID du menu choisi 
EQU D6 ; ID de l'article choisi 
AppleHReg EQU D7 ; handle vers le menu 
; Pomme 
Window1 EQU A3 ; A3 pointe vers la 
; fenêtre principale 
window2 EQU Æ ; A2 pointe vers la 
; fenêtre du compteur 
nn ÉGUVRIONCES —— 
AppleMenu  EQU 1 
Aboutliem EQU 1 
FileMenu EQU 2 
Newltem  EQU 1 
Openitem EQU 2 
Saveltem EQU 3 
Qutitem  EQU 5 
EditMenu EQU 3 
copyliem  EQU 4 
pastelten EQU 5 
Cieartem EQU 6 
CtlMenu EQU 4 
Goltem EQU 1 
Stopltem  EQU 2 
Stepltem  EQU 3 
NGenltem EQU 4 
Loltem EQU 6 
Hitem EQU 7 


prompt 


4 


1 


; Dimensions du tableau : 


Max EQU 


maxWord EQU 10303 


321 


maxLong EQU 5151 
NoGrowDocæProc @EQU 4 
PlainDBox EQU 2 
CmdKey EQU 8 
DWindLen EQU  $AA 
WindowSize EQU $C 
numToString EQU 0 
stringToNum EQU 1 
sfPutFile EQU 1 
s{GetFile EQU 2 
.Træ _AddPt 
.Træp _AddResMenu 
.Trep _Alert 

-Trap __BeginUpDate 
.Trap _BäCr 

.Trap _BitSet 
.Træ _BitTst 
.Traæp _Chbse 

.Træ __CloseDialog 
.Træ CopyBis 
.Trap __Create 
.Trap __Disableltem 
-Trep __DragGrayRgn 
.Traæp _DragWindow 
.Trap _DrawMenuBar 
-Trep __DrawSting 
.Trap __Enableltem 
Trep __EndUpdate 
Tr EraseRect 
Trap ExitToShell 
Trap _FindWindow 
Trap _FlushEvents 
Træp FlushVol 
Trap _FrameRect 
Trap __GetCursor 
Trap __GetDitem 
Trap __Getitem 
Trap __Get/Text 
Trap __GetMouse 
.Trap Ge 

.Trap __GetNextEvent 
Trap _GetRMenu 
Trap _GetString 
Trap __GlobaToLocal 
Trap HiliteMenu 
Trap InitCursor 
Trep _InitDialogs 
Trap _initFonts 
.Trap _InitGret 
.Trap _1nitMenus 
.Trep IntWindows 
.Trap _InsertMenu 
.Trap _InverRect 
.Trap _MenuKey 
.Trap _MenuSelect 
.Trep __MocalDialog 
.Trap _MoveTo 
.Trep _NewPtr 
.Træp _NewRign 
.Trap _NewWindow 
.Træp _ OfisetRect 
Trap _Open 

Træ __OpenDeskAcc 
Trap _Pack3 

Trap _Pack7 

Trap __PenMode 
Trap _PtinRect 
Traæp _Random 
Trap _PRsad 

Tr _RectRgn 
Trap _Select Window 
Trap SendBehind 


.Traæp _SetCursor $AB851 

.Træ | SetPort SA873 _) 
.Trap __SubPt S$SA87F 

.Trap __SysEdit $A9C2 Re ss 
Tr |_SystemClick  SA9B3 LES 
.Træ _SystemTask $SA9B4 = 
.Træ _TEinit $A9CC 7 
.Tra _TextFont $AB887 

.Trep __TrackGoAway SA9IE 

.Træ _WaïtMouseUp $A977 

.Trep _Wrie $A003 


MACRO _PackCail 
MOVEW  %1,45P) 
22 

.ENDM 


MACRO _StringToNum 
_PackCel #stringToNum,_Pack7 
.ENDM 


.MACRO __NumToString 
_PackCal  #numToString,_Pack7 
.ENDM 


MACRO _SFGetFile 
_PackCal #SFGetFile,_Pack3 
.-ENDM 











MACRO _SFPutFile 
_PackCal #SFPutFile,_Pack3 
.ENDM 
jannennnmenreeee ce PROG PiNCpEl 
Stat 
BSR InitManagers 
BSR SetupMenu 
BSR SetupBoard ; Prépare le jeu 
BSR CreateWindows 
CLRL statusReg ; flags et 
; compteur à zéro 
EventLoop 
_SystemTask 
BTST #runBit,statusReg  ; Courons-nous ? 
BEQ.S @t ; Non, pas de 
; calcul 
BSR Calcule ; nouvelle 
; génération 
BSR Affiche ; affichage 
BSR AffCompte ; affiche le 
; nouveau 
; compte 
@1 
CLR 1) | 
MOVE #$007F,-(SP) ; 7 premiers 
; événements 
PEA EventRecord 
_GetNextEvent ; Événement 
; suivant 
TST (SP} ; Existe-tAl ? 
BEQS EventLoop :RAS... On 
; boucle 
BSR HandieEvent 
BTST #quitBit,statusReg 
BEQS  EventLoop 
RTS ;e finita la 
; commedia 
. InitManagers - 
InitManagers ; Standard 
PEA (A5) 
_initGraf 
_InitFonts 
MOVE.L  #$0000FFFF,DO 
_FlushEvents 
_InitWindows 
_InitMenus 
CLRL {S) 
_InitDialogs 
_TElnit 
_InktCursor 
RTS 
ge GRO — © —> 
SetupMenu 
CLRL SP) ; espace pour 
; handie 
MOVE #AppleMenu,-(SP) 
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_GetRMenu 
MOVE.L (SP), AppleHReg 
] MOVE.L  (SP),{SP) ; Copie pour 
; AddResMenu 


CLR {SP) 


S SN _insertMenu 
MOVEL  #DAVR'-(SP) ; Accessoires de 
; bureau 


_AddResMenu 

Fichier: 
CLRAL 
MOVE #FileMenu,-(SP) 
_GetRMenu 
CLR {S) 
_InsertMenu 

Edition: 
CLRL {S) 
MOVE #EditMenu,-(SP) 
_GetRMenu 
CLR {SP) 
_InsertMenu 

Controk: 
CLRAL 4) 
MOVE #CtlMenu,{SP) 
_GetRMenu 
LEA CtlHandie, A0 
MOVE.L (SP),(A0) 


CLR {SP) 
_IinsertMenu 
_DrawMenuBar 


SetupBoard 

;ATTENTION: NewPtr utilise des registres pour les 
; arguments: 
; taille du bloc à réserver en entrée dans DO, en 
; sortie, le pointeur est dans A0, sauf si DO contient 
; un code d'erreur non nul 322 * 64 pour le tableau, 

. ; 5 * 516 pour les lignes, 322 pour le tableau de 
; bookens indiquant les rangées non vides enfin 2 
; octets de ‘bourrage' ---> 23512 octets en tout. 
MOVEL  #23512,D0 


_NewPtr ; Demandons de 
; la place 
TST DO ; Erreur ? 
BEQ.S @1 ; Non, tout va 
; bien. 
_ExitToShell ; Faute de 
; mieux... 
@t 
LEA Board, A1 ; Sauvons les 
; différents 
MOVEL  AD,(A1) ; pointeurs 
ADDA #20608,A0 
LEA moins2, A1 
MOVEL AD(A!) 
ADDA #516,A0 
LEA moins1,A1 
MOVE.L  A0,(A1) 
ADDA #516,A0 
LEA pas0, A1 
MOVE.L  A0,(Ai) 
ADDA #516,A0 
LEA pasi,A1 
MOVE.L  A0,(Ai) 
ADDA #516,A0 
LEA pas2, A1 
MOVEL  A0,(Aî) 
ADDA #516,A0 
LEA changed, A1 
MOVE.L  AD(Ai) 
MOVE.L Board, A0 ; Mettons tout à 
; 26r0 
MOVE #5877,D0 
@e2 
CLRL (A0}+ 
DBRA D0,@2 
MOVE.L  Board,A0 ; Au départ, un 
; r-pentomino 
ADDA #10271,A0 ; 160 * 64 + 31 
MOVEB  #3,(A0) ; au mieu de 
; l'écran 
MOVE.B  #6,64(A0) 
MOVE.B  #2,128(A0) 
MOVE.L , AO ; Ces trois lignes 
ST 160(A0) ; sont non-vides 
ST 161(A0) 
ST 162(A0) 
RTS 


CreateWindows 
Compteur: 

; FUNCTION NewWindow (wStorage: Ptr; 
; boundsRect: Rect; 
; title: Str255; visible: BOOLEAN; prociD: 
; INTEGER; 
: behind: WindowPtr; goAwayFlag: BOOLEAN; 
; refCon: Longint) 


CLRL (&) ; Place pour le 

; résultat 
PEA WStorage2(A5) 
PEA counterRect 
PEA ve! 
MOVEB  #1,{SP) ; 
MOVE #NoGrowDocProc, -(SP) 
MOVEL  #1,4{SP) ; Au sommet 
MOVEB  #1,{SP) ; On veut pouvoir 

; fermer 
CLRL {SP) ; RefCon = 0, 

; pourquoi pas ? 
_NewWindow ; Dessinons la 

; fenêtre 
MOVEL  (SP).window2 ; Sauvons son 

; adresse 
_SetPort ; "ul sur la 
CLR {S) ; SysFont = 

; Chicago 
_TextFont 






Fichier 


Nouveau 


LLTT LI a 1 ee 


Source ‘Vie2.Asm' 


Tableau: 
CLRAL {®) 
PEA WStorage 1(A5) 
PEA windowRect ; L'écran moins 
; les menus 
CLRL {S) ; Pas de titre 
MOVE.B  #1,{SP) ; Visible 
MOVE #PlainDBox,-(SP)  ; Juste un 
; rectangle 
MOVEL  #-1,{SP) ; Au sommet 
CLR {SP) ; On ne la fermera 
; pas 
CLRL 15) 
_NewWindow 
MOVEL (SP), Windowt 
_SetPort 
MOVE #10,-(SP) ; mode = patXor 
_PenMode 
Rectangle: 
; FUNCTION NewRgn : RgnHande; 
CLRL {S) 
_NewRgn 
LEA RectHandle, AO 
MOVE.L  (SP}+,(A0) 
Grilage: 
MOVEL  #21344,D0 ; 322 x 64 +2x 
;,46x8 
_NewPtr 
TST Do 
BEQ.S @1 
__ExitToShell 
@1 
LEA Grite,A1 
MOVEL  AD,(A1) 
MOVE #45,D1 
MOVE #63,D0 
MOVE #-1,D2 
@2 
MOVE.B  D2,(A0)+ ; une rangée 
; noire 
DBRA D0,@2 
MOVE #383,D0 
MOVEQ  #1,D2 ; et six rangées 
; de 00000001 


@3 
MOVEB  D2,(A0)+ 
DBRA D0,@3 
DBRA D1,@4 ; 46 fois --> 322 
LEA Tampon Vide, A1 
MOVEL  A0,(A1) 
MOVE #91,D0 ; Vidons-le 
; effectivement 
@5 
CLRL (A0}+ 
DBRA D0,@5 
LEA Tampon,A1 
MOVE.L  A0,(Aî) 
Curseur: 
CLRL {S) ; récupérons la 
; montre 
MOVE #4,-(SP) ; qui est dans le 
“fichi 
_GetCursor ; System 
watchhandle, AO 
MOVE.L  (SP}+,(A0) 
RTS 
ententes Traitement des événements 
HandieEvent 
MOVE Modity, ModityReg 
MOVE What, DO 
ADD D0,D0 
MOVE EventTable(D0),DO 
JP EventTable(DO) 
EventTable 
DC.W NextEvent-EventTable  ; Null Event 
; (Inutilisé) 
DC.W MouseDown-Event Table 
DC.W NextEvent-EventTable  ; Mouse Up 
; (Inutilisé) 
DCW KeyDown-EventTable 
DC.W NextEvent-EventTable  ; Key Up 
; (Inutilisé) 
DC.W KeyDown-EventTable  ; Auto Key 
DCW Update-EventTable 


; Normalement, la table est plus longue, mais nous ne 
; faisons rien pour les activate/deactivate 


jnenennenrennnnsenennse ACHIONS CIVETSES 
Update 

MOVE.L message, -{SP) 

_BeginUpDate 

MOVE.L  message,DO 

CMP.L window1,D0 

BNE.S @1 

BSR Affiche 
@t 

CMP.L window2, DO 

BNE.S @ 

BSR AffCompté 

MOVE.L message, -(SP) 

_EndUpdate 
NextEvent 

RTS ; retour à la 

; boucle 

KeyDown 

BTST 


#CmdKey,ModityReg ; Seules les 
; commandes 


BEQ NextEvent ; nous 
; intéressent 
;: FUNCTION MenuKey (ch:CHAR): Longint; 
CLRL {S) 
MOVE Message+2,-(SP)  ; Le caractère est 
;Ë 
_MenuKey ; est-ce une 
; commande ? 
MOVE (SP)+,MenuReg 
MOVE {SP)+,MitemReg 
BRA Choices ; trattons-la 


-———- Pour Mouse Down c'est plus compliqué ---—- 


MouseDown 
;: FUNCTION FindWindow (thePt: Point; 
; VAR whichWindow: WindowPitr): INTEGER:; 
CLR {) 


; Place pour 
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MOVE.L  Point,{SP) ; coordonnées de 
; la souris 
PEA WWindow ; Event Window 
_FindWindow 
MOVE {SP},D0 ; numéro de 
; région 
ADD D0,D0 ; “2 pour table 
; d'index 
MOVE WindowTable(DO),DO 
JP WindowTable(DO) 
WindowTable 
DC.W NextEvent-WindowTable 
DC.W InMenu-WindowTable 
DC.W SystemEvent-WindowTable Window 
DC.W Content-WindowTable 
DC.W DoDrag-WindowTable 
DC.W NextEvent-WindowTable 
DCW DoGoAway-WindowTable 
SystemEvent 
; PROCEDURE SystemClick (theEvert: 
; EventRecord; 


; theWindow: WindowPtr); 
PEA EventRecord 
MOVE.L  WWindow,{SP) 
_SystemClick 

BRA NextEvent 


Content 
MOVE.L  WWindow, DO 
CMP.L window2, DO 
BNE.S @1 
MOVEL  window2,-(SP) ; si c'est le 
; compteur 
_SelectWindow ; sélectionner sa 
; fenêtre 
BRA NextEvent 
@!1 
BTST #runBit,statusReg 
BNE NextEvent 
MOVEL  Window1,-{SP) 
_SetPort 
PEA Point 
_GlobalToLocal 
BTST #resBit,statusReg 
BEQ FatBis 
DragRect: 
CLR 1) 
MOVE.L  Point,-(SP) 
PEA LoRect 
_PtinRect 
TST (S}+ 
BEQ NextEvent 
MOVE.L  rectHandie,-(SP) 
PEA LoRect 
_RectAgn 
LEA limites, A0 
MOVE.L Point (A0) 
MOVEL  LoRect,-(SP) 
PEA limites 
_SubPt 
LEA limites, A0 
MOVE.L  (A0),4A0) 
MOVEL  #$011401C0,-(SP) ;y= 276, x = 448 
PEA Émites+4 
_AddPt 
PEA LoRect ; préparation pour 


; Offset 
; FUNCTION DragGrayRgn(theRgn : RgnHandle; 
; StartPoint : Point; limitRect, 
; slopRect : Rect; axis : INTEGER; actionProc : 
; ProcPir) : LONGINT; 


CLRAL {&) 
MOVEL  RectHandie,-(SP) 
MOVEL Point, {SP) ; le coin en haut à 
* gauche 
PEA imies 
PEA HiRect 
CLR 1) ; pas de 
; contrainte 
CLRL {S) ni d'actionProc 
_DragGrayRgn 
CMPIL  #$80008000,(5SP)  ; Renvoyé sik 
; bouton est 
BNE.S @4 ; relaché hors 
; imites 
ADDA #8,5P 
BRA NextEvent 
@4 
PEA LoRect 
_FrameRect 
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__OffsetRect 
PEA LoRect 
_FrameRect 
NextEvent 
FatBits: 
BCLR #deterBit.statusReg ; couleur 
; indeterminée 
@3 
CLRL Do 
MOVE yCoor,DO 
DIU #7,D0 
MOVE D0,D2 
ADD Top,D2 
MOVE.L changed, A0 
ST 0{A0,D2) 
MULU #512,D2 
MOVEL  D2,46 
ADDA Left, A6 
MOVE xCoor,D1 
ASR #3,D1 
ADDA D1,46 
MU #7,D0 
LEA pix, A0 
MOVE DO, (A0) ; haut 
ADDQ #7,D0 
MOVE D0,4(A0) ; bas 
ASL #3,D1 
MOVE D1,2(A0) ; gauche 
ADDI #8,D1 
MOVE D1,6(A0) ; droite 
CLR {1SP) 
MOVEL  Board,{SP) 
MOVEL  A6,-(SP) 
_BitTet 
TST (SH 
BNE.S @7 ; le bit était noir 
BTST #deterBit,statusReg 
BNE.S @e ; on sait déjà 
BSET #deterBit,statusReg 
BSET #colorBit,statusReg 
BRAS @4 
@8 
BTST #colorBit,statusReg 
BEQ.S @10 ; blanc sur blanc 
BRAS @4 
@7 
BTST #deterBit,statusReg 
BNE.S @ 
BSET #deterBit,statusReg 
BCLR #colorBit,statusReg 
BRAS @5 
@ 
BTST #colorBit,statusReg 
BNE.S @10 ; NO Sur noir 
BRAS @ 
@4 
MOVEL  Board,{SP) 
MOVEL  A6,-(SP) 
_BitSet 
BRAS @6 
MOVEL  Board,-(SP) 
MOVEL  A6,-(SP) 
_BitCir 
@6 
PEA px 
_InverRect 
@10 
CLR {SP) 
_WaltMouseUp ; le bouton at-il 
; été laché ? 
TST (&}+ ; Si oui, mise à 
: jour du 
BEQ AffCompte ; compteur et 
; retour 
PEA Point 
_GetMouse 
CLR {SP) 
MOVEL  Point,-(SP) 
PEA HiRect 
_PtinRect 
TST (S}+ 
BEQS @10 
BRA Cd 
DoDrag 
MOVEL  WWindow,{SP) 


MOVE.L  Point,-(SP) 


Frame 
PEA windowRect ; limites du - | | 
; déplacement("® sé 


_DragWindow 


#CmdKey,ModifyReg ; cde ? + ES 


BTST 
BNES  @1 D 
MOVEL  WWindow,{SP) ; non, activons 
; fenétre 
_SelectWindow 
@1 


BRA NextEvent 


DoGoAway 
;FUNCTION TrackGoAway(the Window : 


; WindowPr; 
;startPoint : Point) : BOOLEAN 
CLR {SP) 
MOVEL  WWindow,-(SP) 
PEA Point 
_TrackGoAway 
TST (&} ; L'utilisateur 
; veut-i 
BEQS @ ; vraiment fermer 
MOVE.L  WWindow,-{SP) 
MOVEL  Windowi,-(SP) 
_SendBehind 
BCLR #countBit,statusReg 
@2 
BRA NextEvent 
eereeenenennee ANCISS de MONS ——-—— 
InMenu 
; FUNCTION MenuSelect (startPt:Point) : Longint; 
CLRL 1) 
MOVE.L Point, {SP) 
_MenuSelect 
MOVE (SP)+,MenuReg 
MOVE (SP)+,MitemReg 
Choices 
CMP #AppleMenu, MenuReg 
BEQ InAppleMenu 
CMP #FileMenu,MenuReg 
BEQ InFileMenu 
CMP #EditMenu, MenuReg 
BEQ InEditMenu 
CMP #CtiMenu, MenuReg 
BEQ InCtlMenu 
ChoiceReturn 
CLR P) 
_HiliteMenu 
BRA NextEvent 
InAppleMenu 
CMP #Aboutltem,MitemReg 
BNE.S Accessoire 


:FUNCTION Aler(AlertiD : INTEGER:; Fitter : 
: ProcPt) : INTEGER: 

CLR 
MOVE 
CLAL 
_Alert 
ADDQ  #2,SP 

BRA ChoiceReturn 


{SP) 
#AboutAlert,-(SP) 
1SP) 


Accessoire: 
; PROCEDURE Getltemn (menu: MenuHandie; item: 
: INTEGER; 
VAR iemSting: Str255); 
MOVEL AppleHReg,-(SP) 
MOVE MitemReg,-(SP) 
PEA theString 
_Getitem 
:FUNCTION OpenDeskAcc(theAcc : Str255) : 
; INTEGER; 


CLR {&) 
PEA theString 
_OpenDeskAcc 
CLR (SH ; jetons le résultat 
BRA ChoiceReturn 
InFileMenu 
CMP #Newltem,MitemReg 
BNE.S Open 
Efface: 
MOVE.L Board, A0 : Effacer tout 
MOVE #5877,D0 
@1 
CLRL (40}+ 
DBRA D0,@1 
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CLR  statusFeg 


BSR Affiche 
| BSR AffCompte 
BRA ChoiceReturn 


7 BNE 


; PROCEDURE SFGetFie(topLeft : Point; 

; PromptString : Str255; 

; fieFilter : ProcPtr; numTypes : INTEGER; typeList 
; : SFTypeList; 
; di : ProcPtr; VAR reply : SFReply); 


MOVEL  #$00640052,-(SP) ; x = 82, y = 100 
CLRL {&) 
CLRL {&) 
MOVE #-1,-(SP) ; tous les types 
CLRL {S) ; pas de typeList 
CLRL {S) 
PEA 
_SFGetFile 
LEA 
TST (A0) 
BEQ ChoiceReturn 
CLRL ParamBlock+12(A5) 
LEA theString, AO 
MOVEL  A0,ParamBlock+18(A5) 
MOVE VrefNum, DO 
MOVE D0, ParamBlock+22(A5) 
CLR ParamBlock+26(A5) 
CLRAL ParamBlock+28(A5) 
LEA ParamBlock(A5),A0 
_Open 
; Traitement d'erreur... 
MOVE.L  tampon,A1 
MOVEL  Aï,ParamBlock+32(A5) 
MOVEL  #368,ParamBlock+36(A5) 
MOVE #1,ParamBlock+44{(A5) 
CLAL ParamBlock+46(A5) 
LEA ParamBlock(A5),A0 
_Read 
; Traitement d'erreur... 
LEA ParamBlock(A5),A0 
_Close 
PEA Tampon 
PEA Board 
PEA TampRect 
PEA LoRect 
CLR {S) 
CLRL 1) 
_CopyBits 
MOVEL changed, A0 
ADDA Top, A0 
MOVE #45,D0 
@ 
ST (A0)+ 
DBRA D0,@6 
BSR Affiche 
BSR Affcompte 
BRA ChoiceReturn 
Save: 
PEA Board 
PEA Tampon 
PEA LoRect 
PEA TampRec 
CLR 4S#) 
CLAL 
CopyBits 
CMP #Saveltem, MitemReg 
BNE Qui 


; PROCEDURE SFPutFile(topLeft : Point; 

; PromptString : Str255; 

: InitText : Str255; dialoghook : ProcPtr; VAR reply : 
: SFReply); 

MOVEL  #$00640068,-(SP)  ; x = 104, y = 100 


_GetString 

MOVE.L  (SP),A0 ; dérélérençons 
MOVE.L  (A0)(SP) 

PEA . 

CLRL 48) 

PEA repy 
_SFPutFile 

LEA Good,A0 

TST (A0) 

BEQ ChoiceReturn 

CLRL ParamBlock+12(A5) 

LEA theString, AO 

MOVEL  A0,ParamBlock+18(A5) 
MOVE VrefNum, DO 


#Openltem,MiemReg 
Save 


MOVE D0, ParamBlock+22{(A5) 
CLR ParamBlock+26(A5) 
LEA ParamBlock(A5), A0 
_Create 
CLRL ParamBlock+28(A5) 
LEA ParamBlock(A5),A0 
Open 

; Traitement d'erreur... 
MOVEL  tampon,Ai 
MOVE.L  Aï,ParamBlock+32(A5) 
MOVEL  #368,ParamBlock+36(A5) 
MOVE #1,ParamBlock+44(A5) 
CLRL ParamBlock+46(A5) 
LEA ParamBlock(A5), A0 
_Write 

Traitement d'erreur... 
LEA ParamBlock(A5), A0 
_Close 
CLAL ParamBlock+18(A5) 
LEA ParamBlock(A5),A0 
_FlushVol 
BRA ChoiceReturn 


Edition 
Annuler %2 


Couper 
Copier 
Coller 














æC 
EAU 











‘Vie3.Asm' 


Source 


Quit: 
CMP #Quitltem,MitemReg 
BNE ChoiceReturn 


BSET #quitBit,statusReg 
BRA ChoiceReturn 
InEditMenu 
CLR {S&) 
MOVE MitemReg,-(SP) 
SUBQ #1, (SP) ; décalage pour 
; SystemEdit 
_SysEdit 
TST.B (} ; Ati fait qqch ? 
BNE ChoiceReturn 
CMP #clearltem,MtemReg 
BNE.S Copier 
Effacer 
PEA TamponVide ; TamponVide --> 
PEA Board 
PEA Tamp VideRect 
PEA LoRect 
CLR 4) 
CLRL {S&) 
_CopyBlts 
BSR Affiche 
BSR AffCompte 
BRA ChoiceReturn 
Copier 
CMP #copyltem, MitemReg 
BNE.S Coler 
PEA Board 
PEA Tampon 
PEA LoRect 
PEA TampRec 
CLR 15) 
CLAL 1) 
_CopyBits 
BRA ChoiceReturn 
Coler 
CMP #pasteltem, MitemReg 
BNE ChoiceReturn 
PEA Tampon 
PEA Board 
PEA TampRed 
PEA LoRect 
CLR {1SP) 
CLRL {&) 
_CopyBlts 
BSR Affiche 
BSR AffCompte 


MOVEL changed, A0 
ADDA Top, A0 
MOVE #45,D0 
@6 
ST (20} 
DBRA D0,@6 
BRA ChoiceReturn 
Dane Menu Contrôle 
InCtlMenu 
ADD D6,D6 
MOVE  CtiMenuTable(D6),D6 
JW CtilMenuTable(D6) 
CtlMenuTable 
DCW Dummy-CtlMenuTable ; pas d'item 0 
DCW DoGo-CtiMenuTable 
DCW DoStop-CtiMenuTable 
DCW DoStep-CtlMenuTable ; une 
; génération 
DCW DoNgen-CtiMenuTable ; n générations 
DCW Dummy-CtlMenuTable ; une ligne de 


DCW  DoLo-CtMenuTable ;LoRes 


DCW DoHi-CtiMenuTable  ; HiRes 
DCW Dummy-CtiMenuTable ; une autre ligne 
DCW DoCounter-CtlMenuTable ; Montrer le 
; Compteur 
DCW Dummy-CtlMenuTable 
DCW DoProba-CtiMenuTable ; changer la 
; probabilité 
DCW DoAlea-CtiMenuTable … ; Remplissage 
DoGo 
BTST #runBit,statusReg 
BNE ChoiceReturn 
BSET #runBit,statusReg 
MOVE.L  CtiHandie,{SP) ; handle vers le 
; menu 
MOVE.L  (SP),4{SP) ; duplique 
MOVE.L  (SP),{SP) ; triplique 
MOVEL  (SP),{SP) ; etc 
MOVE #Goltem,-(SP) 
_Disableltem 
MOVE #Stepltem,-(SP) 
_Disableltem 
MOVE #Stopltem,-(SP) 
_Enableltem 
MOVE #nGenitem,-(SP) 
_Disableltem 
Dummy 
BRA ChoiceReturn 
DoStop 
BTST #runBit,statusReg 
BEQ ChoiceReturn 
BCLR #runBit,statusReg 
MOVE.L  CtiHandle,-(SP) 
MOVE.L (SP), {SP) 
MOVEL  (SP),{SP) 
MOVE.L  (SP),4SP) 
MOVE #Goltem,-(SP) 
_Enableltem 
MOVE #Stepltem,-(SP) 
_Enableltem 
MOVE #Stopltem,-(SP) 
_Disableltem 
MOVE #nGenitem,-(SP) 
_Enableltem 
MOVEL  Window1,-(SP) 
_SetPort 
BTST #resBit,statusReg 
BEQ.S @t 
PEA LoRect 
_FrameRect 
BRA ChoiceReturn 
@t 
PEA Gnile 
MOVEL  Window1,-(SP) 
ADDI.L #2, (SP) 
PEA HiRect 
PEA HiRect 
MOVE #2, (SP) ; mode srcXor 
CLAL 48) 
_CopyBite 
BRA ChoiceReturn 
DoStep 
BSR Calcule 
BSR Affiche 


BSR  AffCompte 
BRA  ChoiceRetumn 
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DoNgen 

CERL 41) 

MOVE #GenDialog, -(SP) 

PEA DStorage 
MOVEL  #:1,{SP) 
_GetNewDialog 


MOVE RemHi, DO 


BEQS  @t 
_CloseDialog 


BRA ChoiceReturn 


(SP), SP) 
MOVE #editText,-(SP) 
PEA temType 
PEA itemHandie 
PEA dispRect 
__GetDitem 


MOVEL  ïemHandk,(SP) 


PEA theString 
_GetIText 
_CloseDialog 
LEA theString, AO 
_StringToNum 


TST Do 
BEQ ChoiceReturn 


SUBQ #1,D0 
MOVEL  D0,-(SP) 
MOVEL  Windowi,-(SP) 
_BeginUpDate 
BSR Affiche 
MOVEL  Windowi1,{SP) 
_EndUpdate 
MOVE.L  watchHandie, A0 
MOVE.L  (A0),{SP) 
_SetCursor 
MOVEL  (SP)+,D0 
@3 
BSR Calcul 
DBRA D0,@3 
_InitCursor 
BSR Affiche 
BSR AffCompte 
BRA ChoiceReturn 
DolLo 
BTST #resBit,statusReg 
BEQ ChoiceReturn 
BCLR #resBit,statusReg 
BSR Affiche 
BRA ChoiceReturn 
DoHi 
BTST #resBit,statusReg 
BNE ChoiceReturn 
BSET #resBit,statusReg 
BSR Affiche 
BRA ChoiceReturn 
DoCounter 
MOVEL  window2,-(SP) 
_SelectWindow 
BTST #countBit,statusReg 
BNE ChoiceReturn 
BSET #countBit,statusReg 


BSR AffCompte 
BRA ChoiceReturn 


DoProba 
CLRL 1) 
MOVE #ProbaDialog,-(SP) 
PEA DStorage 
MOVEL  #1,4{SP) 
_GetNewDialog 
MOVE.L  (SP),{SP) 

SetPort 


CLRL  {) 
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; Ce doit être 


; l'utilisateur va 
; attendre 
; Déréferençons 


; récupérons le 
; nombre 


;actuañsons le 
; compteur 


@1 


PEA hemHi 
_ModalDialog 
MOVE KermHit, DO 
CMP #OKitem, DO 
BEQS @1 
_CloseDialog ; Ce doi être 
annuler 
BRA ChoiceReturn 
MOVEL  (SP),4{SP) 
MOVE #editText,-(SP) 
PEA kemType 
PEA iemHandie 
PEA dispRect 
__GetDltem ; récupération du 
MOVEL  itemHandie,-{SP) ; pourcentage de 
; points noirs 
PEA theString 
_GetIText 
_CloseDialog 
LEA theString, AO 
_StringToNum ; ke % est dans 
; DO! 
CMP #100,D0 
BNE @ ; 100 % est 
; remplacé par 
MOVE #255,D0 ; 255/256 
BRAS @s 
MULU #64,D0 ; Pourcentage -> 
DIU #25,D0 
LEA Proba, A0 
MOVE.B  D0,(A0) 
MOVEL  Windowi,-{SP) ; redessinons 
; tout de suite 
_BeginUpDate ; k rectangle 
; laissé en 
BSR Affiche ; blanc par 
; CloseDialog 
MOVEL  Windowi1,{SP) 
_EndUpdate ; et remplissons 


; la probabilité est représentée sur un octet, soit huit 
; chiffres binaires. Chaque bi du mot renvoyé par 

; Random a une probabilité 1/2 d'être positionné. Un 
; bit à 1 dans la proba est traduit par un OR et un bit à 0 
; par un AND. C'est compliqué, mais 

; mathématiquement correct. C'est plus rapide que de 
; calculer bit par bi en faisant appel à Random tous les 
; deux bits car toutes les manips se font au niveau du 
; mot. D'autre part, avec la proba par défaut de 50%, à 
; ny a qu'un appel à Random pour 16 bits, ce que la 

; méthode "naturelle" ne permettrait pas. 


DoAlea 


MOVEB  proba DO 


BEQ Effacer 
MOVE.L  watchHandie, AO 


; proba nulle : 
; effacer 


; l'utilisateur va 
; attendre 
MOVEL  (A0),4SP) ; Déréferençons 
_SetCursor 

MOVEM.L A4/D3-D5,-(SP) 
MOVEB  proba D3 
MOVEQ  #7,D4 


; proba sur 8 bits 


@1 


ASR #1,D3 ; élimination des 


DBCS : à droite de proba 
MOVEL 
MOVE 


@2 


CLR {S) 
_Random 

MOVE (SP)+,(A4}+ 
DBRA D5,@2 
BRAS @7 


MOVEL Board, A4 
MOVE #maxWord,D5 


ASR #1,D3 
BCS @4 

CLR {S) 
_Random 

MOVE (SPH,D0 
AND D0,(A4)+ 
DBRA Ds,@6 
BRAS @7 

CLR 15) 


_Random 


MOVE (SP},D0 

œR DO,(A4)+ , ) 
so D5,@4 CI 

DBRA  D4,@3 EN 

MOVEML (SP)+,D3-D5/A4 D 

CLR 


MOVEL changed, A0 
MOVE #vmax, DO 


@9 

ST (A0}+ 

DBRA D0,@9 

_InätCursor 

BSR Affiche 

BSR AffCompte 

BRA ChoiceReturn 
Joe —— Affichage 
Affiche 


;PROCEDURE CopyBits(FromB,toB : BitMap; 
; from,to : Rect; 


, 


; mode : INTEGER; cipTo : RgnHandie); 
MOVEL  Windowi,-(SP) 


_SetPort 

BTST #resBit,statusReg 

BEQ.S @1 

PEA Board 

MOVEL  Windowi1,-{SP) ; Offset 2 pour le 
; bimap 

ADDI.L #2,(SP) ; d'une fenêtre 

PEA HiRect 

PEA HiRect ; fenêtre entière 

CLARA 15) ; mode copy 

CLRL 15) ; pas de chipping 
; supplémentaire 

_CopyBlts 

BTST #runBit,statusReg  ; le rectangle 
; n'est dessiné 

BNE.S @e ; qu'à l'arrêt 

PEA LoRect 

_FrameRect 

BRAS @ 

@1 

PEA Board 

MOVEL  Windowi,-{SP) ; Offset 2 pour le 
: bémap 

ADDI.L #2, (SP) ; d'une fenêtre 

PEA LoRect ; une partie de la 
; surface 

PEA HiRect ; fenêtre entière 

CLR 4) ; mode copy 

CLRL 1) ; pas de cipping 
; supplémentaire 

_CopyBits 

BTST #runBit,statusReg  ; la grille n'est 
; dessinée 

BNE.S @ ; qu'à l'arrêt 

PEA Grille 

MOVEL  Windowi1,-(SP) 

ADDI.L #2, (SP) 

PEA HiRect 

PEA HiRect 

MOVE #2,SP) ; mode srcXor 

CLRL {SP) 

_CopyBits 

RTS 

AffCompte 

BTST #countBit,statusReg 

BEQ.S @t 

MOVEL  window2,-(SP) 

_SetPort 

_EraseRect 

MOVE #4,{SP) ; 1ère ligne du 

MOVE  #13,{SP) 


_MoveTo 


; PROCEDURE NumToString(theNum : LONGINT: 
: VAR theString : Str255); 

;: ATTENTION: Comme ne l'indique pas le livre de 

: Chernikoff, NumToString utilise les registres A0 et 
; DO en entrée, laissant A0 intact en sortie 


CLRL DO 
MOVE  statusReg,DO 


LEA theString, AO 
_NumToString 


; 16 bits de poids 
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MOVEL  A0,-(SP) 


_DrawString 
| | MOVE #4,{SP) ;'une ligne plus 
‘bas 


MOVE #25,-{SP) 

_MoveTo 

Z MOVEL  D8,-{SP) ; 
; registre 

CLRAL D0 ; calcul de la 
: population 


; Sauvons un 


D3,@5 


D1,@3 

theString, AO 
_NumToString 
MOVEL  A0,-(SP) 
_DrawString 
MOVEL  (SP}+,D3 : Récupération de 
; StatusReg 
Window1,-(SP) 


ae La Vie est ici 

; Chaque ‘rangée’ du tableau est parcourue à la 

; recherche de bits à 1 (pixels ‘vivants’). Pour chaque 
! bit trouvé, on ajoute sa contribution aux 9 octets 

; correspondant aux neuf cases du carré 3 x 3 dont le 
: pixel est le centre, dans les ‘lignes’ précédente, 

; présente et suivante respectivement Cette 

; contribution vaut 1 pour le centre et 2 pour tous les 
; autres carrés. Ceci est le travail de la routine Calc. 

; Quand une ‘ligne’ a été dans les trois positions, on 

; peut calculer la valeur de la ‘rangée’ correspondante 
; dans le tableau de la nouvelle génération. Comme la 
; ligne était remplie au départ de -5, les pixels vivants 
; correspondent aux cases contenant 0, 1 ou 2, cœ 

; qu'un rapide calcul permet de vérifier. (L'intérêt de 

; cœtte méthode tordue par rapport à une méthode 

; plus ‘naturelle’ consistant par exemple à partir de 0, 
; ajouter 1 ou 10 et à chercher les cases contenant 3, 
; 12 ou 13 est de supprimer 5 ou 6 instructions à un 

; endroit crucial : le gain de temps est de l'ordre de 

; 30%!) Cea est fait par la routine Transtert. Il y a des 
; cas particukers pour les premières et dernières 

; rangées, ainsi que pour les premiers et derniers bis 
: de chaque rangée, parce que je voulais un terrain 

; torique : un glisseur arrivant à un bord réapparait à 

; l'autre bord au lieu de dégénérer en un misérable 

; arté. 

; NOTE : J'avais donné des noms symboliques aux 

; registres, mais l'assembleur prétendait que les 

; modes d'adressage complexes étaient illégaux. J'ai 
; donc dû rendre aux registres leur nom d'origine, me 
; contentant de donner ci-dessous leur signification. 


A1  ; pointe vers le début d'une 
; rangée 

; fgne' précédente 

; ligne’ présente 

; ligne’ suivante 

; pointe vers le bookéen qui 


BEBR 


: indique si une rangée est non 
; Stockage temporaire 

; coordonnée verticale (à 

; l'envers...) 

: offset du mot long étudié (croi 


SET xs “J ER ë 
B D È E E EE BBRE Ë 


TIRSES 
RER: 
E 
& 
Fi 





Contrôle 
Go 
Stop 
Une génération 
n générations... 













Compteur 


lee neneeseenrennen canne sonus ou mous sonne vones ones mranssssnnennmnnnnssonennenne ans enss ses, 


Probabilité.… &æP 
Remplissage aléatoire %nA 


Source ‘Vie4.Asm’ 










Ca ; pred, act, suiv et base doivent être 
; corrects en entrée 
; Cak ne les modifie pas (A1-A4), mais 
; modifie D3-D6 
CLR Loc] 
MOVE #31,D5 en cas de 
; branchement 
; juste après 
MOVEL (A1)D6 ; premier mot long 
BEQS @1 : 8% est nul, mot 
BPLS @ ; sil 1" bit est 
; nul, bi suivant 
ADDQOB  #2,511(A2) ; effet sur la 
; dernière case 
ADDQOB  #2,511(A3) ; des lignes 
ADDQB  #2,511(A4) 
ADDOB  #2,(A2) ;'et sur les 
; première 
ADDQOB  #1,(A3) 
ADDQB  #2,(A4) 
ADDQOB  #2,1(A2) et secondes 
| Cases 
ADDQOB  #2,1(A3) 
ADDOB  #2,1(A4) 
@2 
CLR D6 ; modifions l'octet 
le à gauche 
MOVE #30,D4 :e pue est 
; le #30 
C4 
BTST D4,D6 
BEQS @ ; branchement si 
:btà0 
ADDOB  #2,0(A2,D5) 
ADDQB  #2,0(A3,D5) 
ADDOQB  #2,0(A4,D5) 
ADDOB  #2,1(A2,D5) 
ADDOB  #1,1(A3,D5) 
ADDQB  #2,1(A4,D5) 
ADDOB  #2,2(A2,D5) 
ADDQB  #2,2(A3,D5) 
ADDOB  #2,2(A4,D5) 
@s5 
ADDQ #1,D5 ; incrémenter h et 
; décrémenter 
DBRA D4,@4 :len'dubt, 
; ENCONE Si >=0) 
@1 
MOVE #31,D4 
@6 
ADDQ #4,D3 
CMP #60,D3 
BEQS @7 
MOVEL  O{Aï,D3),D6 
BNE.S C4 
ADDI #32,D5 
BRAS @ 
@7 
MOVEL  O{A1,D3),D6 
BEQS cs 
BTST D4,D6 
BEQS @10 
ADDQB  #2,0(A2,D5) 
ADDQOB  #2,0(A3,D5) 
ADDQB  #2,0(A4,D5) 
ADDQOB  #2,1(A2,D5) 
LB  #1,1(A3,D5) 


#2,1(A4,D5) 
#2,2(A2,D5) 
#2,2(A3,D5) 
#2,2(M4,D5) 


#1,D5 
#1,D4 
@ 

D4,D6 


@s 
#2,0(A2,D5) 
#2,0(A3,D5) 
#2,0(A4,D5) 
#2,1(A2,D5) 
#1,1(A3,D5) 
#2,1(M4,D5) 
#2, (A2) 


#2, (A3) 
#2, (A4) 
512(A2) 
512(A3) 
512(A4) 


; la ligne vers laquelle pred=A2 pointe 
; est parcourue. À chaque 0, 1 ou 2 

; trouvé, on aura un pixel vivant’ à la 

; génération suivante. On met à un le bi 
correspondant. La rangée ainsi formée 


; est écrite sur la rangée précédant coke 

; vers laquelle base pointe. En sortie, 

; h=D7 vaut $FF si on a trouvé au 

; moins un point vivant, à 0 sinon. 

#-64,D3 ; offset de la 
; rangée 

D7 : flag à ro 

DS ; premier élément 
; de la ligne 

#31,D4 ; bit de poids fort 
: (pixel gauche) 

D6 

0(A2,D5),D0 ; Ésons la valeur 

@ 

#2,D0 

@ 

D4,D6 ; vivant si 0, 1 or 2 

#1,D5 

D4,@5 ; mot .L terminé ? 

D6,0(A1,D3) ; oui, écrivons-le 

@ 

D7 ; la rangée n'est 
; Pas vide 

#4,D3 ; fin de rangée 
;'atteinte ? 

@1 ; non, mot suivant 

A0-A4/D0-D7,-SP)  ; sauvons les 

moins2, A0 

#644,D0 

#$FBFBFBFB,(A0)+ ; cinq lignes à 
; nettoyer 

D0,@1 

changed, change ; change EQU A0 

Max (A0) ; dernière rangée 
; vie ? 

moins2, A2 

moins 1, A3 

pas0, A4 

Board, A1 ; adresse de base 
; dela 

#20544,A1 ; dernière rangée 

Cat 

Board, A1 

(A0) ; Première rangée 
; blanche ? 

@ 

moins1, A2 

pas0, A3 

pas1,A4 
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& 
MOVEL pas0,A2 

| MOVEL pasi,A3 
MOVEL  pas2, M 
MOVE #vMax-4,v 

€ 

ADDA #64,A1 
ADDQL  #1,A0 
TST.B  512(A4) 
BNES 


MOVE.L  #$FBFBFBFB, (A4) 
DBRA D0,@5 
TST.B (A0) 
BEQ.S 
BSR Cat 
TST.B 512(A2) 
BNE.S @7 
BSR Transtert 
MOVE.B  ch,-1(A0) 
@7 
MOVEL  A2,-(SP) 
MOVEL  A3,A2 
MOVE.L  A4,A3 
MOVE.L  (SP)+,A4 
DBRA v@8 
Encore_deux 
MOVE.L  moins2, A4 
ADDA #64,A1 
ADDQL  #1,A0 
TST.B (A0) 
BEQ.S 
BSR Cal 
TST.B 
512(A2) 
BNE.S @7 
BSR Transfert 
MOVEB  ch,-1(A0) 
@7 
MOVEL A3,A2 
MOVEL  A4,A3 
MOVEL  moinsi,A4 
ADDA #64,A1 
ADDQL  #1,A0 
TST.B (A0) 
BEQS @8 
BSR Cat 


Fichier ‘Vie.R’ 


Jeu de la Vie 
APPLJDLV 


INCLUDE Vie.Code 
Type MENU 





TST.B 512(A2) 
BNE.S @ 
BSR Transfert 
MOVE.B  ch,-1(A0) 
@9 
MOVEL  A3,A2 
MOVEL  A4,A3 
ADDA #64,A1 
ADDQL  #1,A0 
TST.B  512(A2) 
BNE.S @10 
BSR Transfert 
MOVEB  ch-1(A0) 
@10 
MOVEL  A3,A2 
ADDA #64,A1 
ADDQL  #1,A0 
TST.B 512(A2) 
BNE.S @11 
BSR Transfert 
MOVE.B  ch,-1(A0) 


RTS 
jme mmmnneeeee DONNÉES 1HOGEAbIES -—— 
EventRecord ; Renvoyé par 
; GetNextEvent 
What: DC 0 ; Nature de 
; l'événement 
Message: DCL 0 ; précisions diverses 
When: DCL 0 ; nb de Ticks 
Point: ; coordonnées de la 
; Souris 
yCoor: DC 0 
xCoor: DC 0 
Modify: DC 0 ; État de commande, 
; option... 
WWindow DCL 0 ; Résultat de 
; FindWindow 
CtlHandie DC.L 
DStorage DCBW DWindLen,0 ; Dialogues 
repy 
good: DC 0 
Type: DCL 0 
vRefNum: DC 0 
version DC 0 
theString: DCBW 64,0  ; diverses chaines 
; y compris Name de 
:SFReply 
WindowRect DC 20,0,342,512 
; Tableau de jeu 
counterRect DC 48,420,76,480 
; compteur 


cadran DC 0,0,28,60 
Hem œm o ee | ss) | 
HemType Dm 0 Le 
ltemHande  DCL O0 S SN 
dispRect DC 0,0,0,0 D 
Board DCL 0 ; bämap (tableau de 
: Ru) 
rowbytes: DC 64 ; comme screenbits 
HiRect: DC 0,0,322,512 
; comme portRect 
limites DC 0,0,276,448 
; pour dragGrayRgn 
Grie DCL 0 ; un autre bitmap 
DC 64 
0,0,322,512 
Tampon DCL 0 ; un troisième 
DC 8 
TampRect: DC 0,0,46,64 
TamponVide: DCL 0 
; sert à effacer 
DC 8 
TampVideRect: DC 0,0,46,64 
LoRect ; 46 x 64 centré (au début) 
Top 138 
Loft. DC 224 
Bottom DC 184 
Right. DC 288 
Proba DC.B 128  ;proba 1/2 au début 
Px DC 0,0,0,0 ; gros pixel 
; rectangulaire 
RectHandile DCL 0 ; Région rectangulaire 
watchHandie DCL 0 ; Curseur montre 
moins2 DCL 0 ; pointeurs de ligne 
moins1 DCL 0 
pas0 DCL 0 
past DCL 0 
pas2 DCL 0 
changed DCL 0 ; pointe vers un tableau 
; de booléens 
jen DONN66S non relogeables 
WStoraget DSW WindowSize 
; Fenêtre principale 
WStorage2  DSW  WindowSize 
; Fenêtre du compteur 
ParamBlocx DSW 50 ; Pour les 
;entrées/sorties 


ColerV Button 4 Type DITL 
Effacer 80 230 100 290 3 
K Button 4 
4 40 40 60 120 
Contrôle StaticText Disabled XK Button 
GoG 15 20 36 300 40 40 60 120 
(Stop/S Jeu inventé par J. Conway Button x 
Une génération/U 40 180 60 260 
n générations.../N StaticText Disabled Annuler Button 
t 35 20 56 380 40 180 60 260 
Basse résolution/B © Dominique Bemnaraï Static Text Disabled Annuler 
Haute résolution/H 15 30 36 200 
( Static Text Disabled Nombre de générations: StaticText Disabled 
Compteur/K 55 20 76 300 15 30 36 200 
t et Pom's ‘EditText Disabled Pourcentage de vivants: 
Probabilité…./P 16 220 31 270 
Remplissage alatoire/A Type DLOG 25 EditText Disabled 
2 16220 31 270 
Type ALRT (32) Type DLOG 50 
x. 100 100 170 400 3 
100 50 210 450 Visible NoGoAway Type STR 
1 1 100 100 170 400 mn) 
4444 ’ Visible NoGoAway Nom du nouveau fichier: 
1 
Type DITL 0 
1 Type DITL 3 
4 2 
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2 
cs 


En passant de l'Apple // au 
Macintosh, le Basic de Microsoft 
a conservé les caractéristiques de 
son instruction standard de saisie 
au clavier ; de fait, l'instruction 
INPUT n'est pas plus 
performante aujourd'hui qu'elle 
ne l'était jadis. 

Certes, les “évolutions Mac”, du 
type EDIT FIELD ou autres 
ÉDIT$, apportent un plus 
incontestable, mais ne permettent 
pas de contrôler la saisie en 
fonction du type de données 
attendu. Par ailleurs, elles ne se 
prêtent guère aux opérations de 
saisie ‘intensive”, car toute 
correction de frappe impose une 
utilisation alternative de la souris 
et du clavier... 


Dans ses précédents numéros, 
Pom's vous a souvent proposé 
des solutions aux problèmes de 
saisie en Basic, sous forme de 
routines en assembleur ou en 
Applesoft, à des niveaux de 
complexité variés. Dans ce même 
esprit, nous vous présentons ici 
un exemple de routine Basic que 
vous pourriez intégrer dans vos 
programmes dès lors que la 
frappe y joue un rôle important. 


Principes 
d'utilisation 


Les données sont saisies par 

sous-ensembles correspondant à 

des tableaux de variables (par 

exemple, un tableau pour toutes 
les informations à saisir en un 
même écran). L'affichage doit 
toujours se faire avec une police 
non proportionnelle afin de 
permettre des déplacements 
corrects sur une ligne de saisie 

(voir plus loin). 

Chacune des données est en outre 

identifiée par : 

* un libellé précisant le contenu 
de l'information à fournir et les 
coordonnées horizontale et 
verticale du point à partir 
duquel doit commencer l'affi- 


chage du libellé (ces coordon- 
nées sont exploitées par une 
instruction MOVETO) ; 

+ la position du point à partir 
duquel débutera la saisie 
(coordonnées horizontale et 
verticale) ; 

+ le nombre maximum de 
caractères autorisé pour la 
saisie de cette donnée ; 

+ le type de la donnée. 


Ce dernier paramètre peut prendre 
les valeurs suivantes : 


+ 1 pour indiquer une donnée 
alphanumérique. La routine 
acceptera alors la frappe de tout 
caractère de code ASCII 
supérieur ou égal à 32, les 
guillemets, la virgule, les 
deux-points et le point-virgule 
étant toutefois remplacés par 
un point, afin d'éviter les 
problèmes d'exploitation ulté- 
rieure des informations 
entrées. 

+ _2 pour une donnée numérique. 
Ne sont alors acceptés que les 
chiffres, les signes "+" et "-", 
et le point décimal (la frappe 
d'une virgule est aussitôt 
transformée en point). 

+ 3 pour indiquer une date. Ne 
sont alors acceptés que les 
chiffres et la barre de fraction 
"7", La date doit normalement 
être saisie sous la forme 
JJIMM/AA mais, si vous 
rentrez 1/1/86, par exemple, la 
routine complètera elle-même 
pour obtenir 01/01/86. De 
plus, un contrôle est effectué 
sur la valeur de JJ (inférieure à 
32) et sur celle de MM 
(inférieure à 13). 


La routine utilise quatre touches 
pour permettre les déplacements 
sur une ligne de saisie ou d'une 
ligne à l'autre à l'intérieur d'un 
tableau. 
+ RETURN permet de passer à 
la ligne suivante ou à la suite 
du programme s'il s'agit de la 
dernière ligne. En outre, cette 
touche valide la saisie en affectant 


ROUTINE DE SAISIE 


à une chaîne de caractères tous les 
caractères qui se trouvent à la 
gauche de l'endroit où est entré 
RETURN (si vous tapez 
RETURN à l'intérieur d'une 
ligne de saisie, vous annulez la 
partie droite de la frappe). 
Par ailleurs, si RETURN est la 
seule touche que vous frappez en 
tête de ligne, vous passez à la 
suivante tout en validant sans le 
modifier le contenu de la ligne. 
Cela vous sera notamment utile si 
vous vous déplacez à l'intérieur 
du tableau pour le modifier. 
+ Lorsque vous êtes au début 
d'une ligne (sauf la première.) 
et que vous n'avez encore entré 
aucun caractère, la frappe de 
ENTER (la touche qui se trouve 
juste à droite de la barre d'espace) 
vous permet de retourner au 
début de la ligne précédente. Ceci 
reste valable même lorsque des 
caractères sont affichés sur la 
ligne (modification d'une saisie 
antérieure), car c'est l'absence de 
frappe et non l'absence d'affi- 
chage qui est testée. 
+ Sur une ligne, la frappe de 
"Backspace" (en haut et à 
droite du clavier) permet de 
reculer le curseur (matérialisé par 
un signe _ ) d'un caractère. Les 
caractères situés alors à droite du 
curseur ne sont pas perdus, 
même si vous modifiez l'un de 
ceux qui les précèdent, dès lors 
que vous ramenez le curseur à 
l'extrémité de la ligne, au moyen 
de la touche décrite ci-dessous, 
avant de taper RETURN. 
+ Toujours sur une ligne, la 
frappe de la touche de 
tabulation permet de déplacer le 
curseur vers la droite et de 
restituer les caractères sur 
lesquels vous étiez préalablement 
passé avec la touche Backspace. 


Principales 
variables utilisées 
par la routine 


nd% : nombre de données 
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EN BASIC 


(lignes) à saisir. 

zc$(i) : ce tableau contient les 
données saisies en sortie de la 
routine. Chaque élément du 
tableau correspond à une ligne. 
tt% : si cette variable vaut O, elle 
indique une première saisie. Dans 
le cas contraire, il s'agit de 
modifier un tableau précé- 
demment entré. Les valeurs 
initiales doivent alors être 
basculées dans zc$(i) avant 
l'appel de la routine. 

1i$(i) : contient les libellés à 
mettre en regard des données à 
saisir. 

1h %(i) et Iv (i) contiennent les 
coordonnées horizontales et 
verticales des libellés. 

zh % (i) et zv H(i) : coordonnées 
horizontales et verticales des 
points de départ de chaque ligne 
de saisie. 

I1%(i) : longueurs maximales 
des données. 


Gérard Michel 


ty %(i) : types des données. 
pc% : position du curseur sur la 
ligne (vaut 1 pour le début de la 
ligne). 

1% : nombre de caractères entrés. 
te% : vaut O si aucun caractère 
n'a été frappé. 

dd% : ce paramètre est fixé à 7. 
Il correspond à la valeur qu'il faut 
ajouter ou retrancher à la 
coordonnée horizontale d'un 
MOVETO pour obtenir un 
déplacement équivalent à la place 
occupée sur l'écran par un 
caractère en police Monaco 9 
points. 

d% : indique la coordonnée 
horizontale du prochain caractère 
à saisir. 

Æ : reçoit le caractère frappé. 

c$ : chaîne tampon ‘“archivant" 
les caractères avant leur validation 
par RETURN et leur affectation à 
zC$(i). 

K$ : contient le caractère sous le 


curseur et les caractères qui se 
trouvent à sa droite, en cas de 
retour en arrière. 


Programme de 
démonstration 


Il permet de saisir deux tableaux, 
l'un de 4 variables et l'autre de 3. 
Chaque tableau saisi est alors 
affiché pour contrôle. 

En mettant à 1 la valeur de tt%, 
vous pouvez ensuite modifier 
votre première saisie pour ces 2 
tableaux. 


Cet exemple très "dépouillé" vous 
aidera simplement à analyser la 
façon dont vous pourrez appeler 
la routine de saisie dans vos 


propres programmes. é 





Programme de 
démonstration 


mme 
depart : 
IF n1$%>2 


THEN tt$=tt$+1:RESTORE:n1%=1 


! Préparation de la modification 


IF tt5>1l THEN END 


El 
ak 


" Initialisation et appels de la routine 
OPTION BASE l:tt$%-0:n1%=-1:DIM sv$(2,4 
) 
" Définition des libellés du premier tab 
leau (premier écran) 
CLS :DATA 4,LIBELLE 1l,LIBELLE 2,LIBELLE 
3, LIBELLE 4,50,50,50,80,50,110,50,1 
40 
" Paramètres des données du premier tabl 
eau 
DATA 130,50,15,1,130,80,6,2,130,110,8,3 
/130,140,50,1 
" Définition des libellés du second tabl 
eau 
DATA 3,SUITE 1, SUITE 2,SUITE 3,100,100, 
100,130,100,160 
! Paramètres des données du second table 


au 

DATA 180,100,20,1,180,130,10,2,180,160, 
8,3 

" Début du programme de démonstration 

! Saisie des deux tableaux, modification 
des mêmes tableaux et fin du progra 


GOSUB lecture:CLS:IF tt$=-1 THEN FOR i 
=1 TO nd$:zc$(i)=sv$(n1%,i):NEXT 
GOSUB saisie:CLS:FOR i=1 TO nd#$:MOVET 
O 10,50+30*(1-1) :PRINT li$(i)" : "z 
c$(i) :NEXT:PRINT:PRINT:INPUT z$ 

FOR i=1 TO nd%:sv$(n1l#%,i)=zc$S{(i) :NEXT: 
" sauvegarde des données saisies 

nl$%=n1$%+1:GOTO depart 

" Lecture des libellés et des paramètres 

lecture: 

READ nd$:FOR i=1 TO nd?$:READ 1li$(i):N 
EXT:FOR i=1 TO nd$:READ lh#%(i),lv# 
(i) :NEXT 

FOR i=1 TO nd$:READ zh%(i),zv#(i),11%( 
i1),ty$(i) :NEXT 

RETURN 


" Routine de saisie 

LA 

saisie: 

’ Police non proportionnelle en 9 points 
TEXTFONT 4:TEXTSIZE 9:TEXTMODE 0 
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IF tt$=0 THEN FOR i=1 TO nd3%:z 


«2 c$(i)="":NEXT:' tt3=0 => sa 
isie 
LS FOR i=1 TO nd3%:MOVETO lh%(i),1 
v$(i) :PRINT liS$(i)" : ";:M 
OVETO zh3%(i),zv3%(i) :PRINT 
zc$(i);:NEXT 
FOR i=1 TO nd#: ' Boucle de saisie des 
variables 
debut : 
" Initialisation des variables pour la s 
aisie 


d$=2h%(i):zv8=zv% (i) :MOVETO d3,zv3:dd?= 
7:k$=zc$(i) :c$=zc$(i) :1#=-LEN(c$) :pc 
8=1:11%-11#(i) :ty3=ty#(1i) :te3=0 

" Affichage du curseur et attente d'un c 
aractère au clavier 

100 PRINT "_";:MOVETO d#-dd3%,zv$:PRIN 
T k$;:MOVETO d$-dd%,zv3:zS$S=INKEYS 
:IF 2z$="" THEN 100 

c&=ASC(2z$):IF c$=13 AND te3%=0 THEN PR 
INT c$;:GOTO fin 

IF c$=3 AND te%=0 THEN IF i>l THEN i= 
i-1:MOVETO d$-dd$,zv$:PRINT c$" "> 
:GOTO debut ELSE BEEP:GOTO 100 

te%=1: ' Un caractère différent de RETUR 
N (13) ou ENTER (3) est frappé 

" c$=8 => en arrière 

tus: processing jo 

IF c$=8 AND pc$=1 THEN BEEP:GOTO 100 

IF c$=13 THEN c$=LEFTS$(c$,pc3-1):MOVE 
TO d$-dd%,zv$#:PRINT SPACES$(11%-pc 
8+2) ; :GOTO fin 

IF c$=9 AND pc$=1$%+1 THEN BEEP:GOTO 1 
00 

IF c$-9 THEN PRINT SPACE$(11%-pc3+1); 
:MOVETO dé-dd%,zv#:PRINT MIDS(cS, 
pc$,1l);:GOTO 300 

IF c$=8 THEN 200 

IF pc$=-11%+1 THEN BEEP:GOTO 100 

IF c$=34 OR c$=44 OR c3=58 OR c?%=-59 TH 
EN 2$=".":c%=46 

ON ty% GOTO alpha, num, date 

alpha: 

IF c$<32 
e 

num: 


THEN BEEP:GOTO 100 ELSE suit 


A propos de ‘--> Corbeille’ 





THEN suite 


IF c3%3=46 OR c3=45 OR c3=43 

IF c3>57 OR c$3<48 THEN BEEP:GOTO 100 
ELSE suite 

date: 

IF c3<47 OR c3>57 THEN BEEP:GOTO 100 

suite: 

IF k$S<>"" THEN PRINT SPACES$S(11%-pc%); 


k$=" ":MOVETO d$-dd$,zv#:PRINT k$;:MO 
VETO d$-dd3%,zv$:PRINT z$;:d#%-d#$+dd 
$:pc$%=pc$+1:IF pc$-1%+2 THEN 1%=13%+ 
l:c$=c$+z$:k$="":GOTO 110 

MID$S(c$,pc#%-1,1)=z$S:k$=MIDS$(c$,pc#,1l) 

110 MOVETO d$-dd#,zv#:GOTO 100 

200 pc%=pc$-1l:IF pc$<1% THEN MOVETO d# 
-dd$, zv?:k$S=RIGHTS (c$,1%-pc$+1):PR 
INT k$;:GOTO 210 

k$=MIDS(c$,pc#,1l) 

210 MOVETO d$-2*dd#,zvé:d%-d#-dd#:GOTO 
100 

300 pc3=pc%+1:k$=-MIDS (c$,pc%,1):d%-d$#+d 
d$:GOTO 110 

fin: 

IF ty$<>3 OR c$="" THEN bcl 

! Contrôle de conformité de la date sais 
ie 

FOR j=1 TO 3:IF MID$(c$,j,1)<>"/" THE 
N d0 

IF j<3 THEN c$="0"+c$:j=3 

d0: 

NEXT:IF MID$(c$,3,1)<>"/" OR VAL(LEF 
T$(c$,2))<1 OR VAL(LEFTS$S(c$S,2))>31 

THEN BEEP:zc$(i)=c$:GOTO debut 

FOR j=4 TO 6:IF MID$(c$,j,1)<>"/" THE 
N dl 

IF j<6 THEN c$=LEFTS(c$,3)+"0"+MIDS(c 
$, 4) : j=6 

dl: 

NEXT:IF MID$(c$S,6,1)<>"/" OR VAL(MID 
$(cS$,4,2))<1 OR VAL(MID$S(c$S,4,2))> 
12 OR LEN(c$)<>8 OR MID$(c$,7,1)=" 
/" OR RIGHT$S(c$S,1)="/" THEN BEEP: 
zc$(i)=c$:GOTO debut 


bel: 
" Affectation de la variable et suite... 
zc$(i)=c$:IF c$="" THEN MOVETO d$-dd?, 


Zv$:PRINT " ‘"; 
NEXT : RETURN 


Avec le nouveau système (disquette 22), la fenêtre inférieure de cet accessoire (Pom's 21) est partiellement 
masquée par la fenêtre de sélection des fichiers, plus grande qu'avec les versions antérieure du système. Ceci 
n'empêche pas ce ‘mini-programme” de fonctionner mais fait un peu ‘désordre’. Pour que tout rentre dans 


l'ordre, il faut remplacer la ligne : 
MOVE.L #$00280014,-(SP) 
et la ligne : 


par MOVE.L 


RectangleF DC 


198,20,281,368 par 


RectangleF DC 


#$00200014,-(SP) 


252,20,335,369 
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Pour la souris 


Qui n'a pas sous la main une 
vieille radiographie ? Ce support 
anti-statique semble être l'idéal 
pour les évolution de la souris. 
Moins de risques de voir l'animal 
se salir ! 


Commande, Option, 
Majuscules ? 


Pour savoir quel est l'état de ces 
touches, ainsi que ‘verrouillage 
majuscules’ depuis un pro- 
gramme Basic, il faut lire le 
contenu des adresses $17A et 
$17B : 


le bit 7 de $17A est à 1 si la 
touche ‘Commande’ est 
enfoncée ; 

le bit 0 de $17B est à 1 si l'une 
des touches ‘Majuscules’ est 
enfoncée ; 

le bit 1 de $17B est à 1 si la 
touche ‘Verrouillage majus- 
cules’ est enfoncée ; 

le bit 2 de $17B est à 1 si l'une 
des touches ‘Option’ est 
enfoncée. 


Commande 


sa ([s[s [520] 






Verrouillage Majusc. 
Majuscules 


Dans un programme Basic, on 
pourrait donc trouver des lignes 
telles que : 


IF PEEK(&h17A) AND 
128 THEN Commande 

IF PEEK(&h17B) AND 1 
THEN Majuscule 

IF PEEK(6h17B) AND 2 
THEN Verrouillage 

IF PEEK(£6h17B) AND 4 
THEN Option 

ou encore, si l'on veut savoir si 

les touches ‘Option’ et 


‘Majuscule’ sont enfoncées 
simultanément : 


IF PEEK(6h17B) AND 5 
THEN Option.Maj. 


N.D.L.R. : si vous programmez 
en assembleur, ces deux adresses 
correspondent à KeyMap+6 et 
KeyMap+7. 
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LaserAstuces 


Pour éviter de gâcher une feuille 
de papier et de l'encre avec 
l'auto-test à l'allumage de 
l'appareil, il suffit de retirer 
l'alimentation papier au moment 
de l'allumage et de la remettre 
lorsque le témoin vert ne clignote 
plus. 


Titres encadrés 
avec MacPaint 


Mettre un titre dans une zone 
comportant un décor n'est pas 
une sinécure avec MacPaint. Une 
première solution revient à entrer 
le texte une fois le décor créé. Le 
détourage du texte ainsi obtenu 


peut être jugé trop important : 





La seconde solution, bien moins 
lisible, consiste à taper le texte en 
dehors du cadre puis à l'y placer 
avec le lasso : 





La procédure indiquée ci-dessous 
permet de construire, certes au 
prix de quelques manipulations, 
un détourage à la fois lisible et 
moins brutal que le détourage 
rectangulaire présenté en 
premier : 





Première étape : activer la 
grille, si possible avant de 
dessiner le cadre. Cela nous 
permettra de meilleurs centrages. 


Seconde étape : taper le titre en 
dessous du cadre, le sélectionner, 
le copier, le coller (préserve 
l'original qui servira plus tard), 
demander une fois le contour et le 
placer avec le lasso dans le cadre. 


Troisième étape : activer la 
loupe, choisir la peinture blanche, 
et verser la peinture sur le bord 
extérieur du texte : 


CES 


une rubrique ouverte aux lecteurs 





Gaëtan Dagron 


Delphine Declercq e | Bi | 


Jacques Honorez ER 
Niels Koge TS 
Hervé Thiriez 





L'utilisation de la loupe nous 
permet de verser la peinture, 
exactement sur le trait extérieur, 
sans difficulté. 


Quatrième étape : se déplacer 
avec la main pour continuer la 


même opération de blanchissage , 
(2 fois ici) sur le reste du texte, 


qui n'est pas forcément jointif. Le 
résultat est alors : 





Cinquième étape : il ne reste 
plus qu'à y placer avec le lasso le 
texte qui était resté au naturel 
sous le cadre, ce qui nous donne 
le résultat final présenté plus 
haut. 


Modifier «System» 


On ne peut normalement modifier 
le nom du fichier ‘System’. Pour 
y parvenir, dupliquez-le et 
modifiez alors si vous le voulez le 
nom de ‘Copie de System’ qui 
sera, lui, modifiable jusqu'à sa 
première utilisation sous le nom 
de ‘System’. 

L'intérêt de faire porter à un 
fichier ‘System’ un nom 
différent, c'est que cela vous 
permet de lancer un programme 
placé sur une disquette 
comportant son propre ‘System 
(rebaptisé) à partir d'une 
disquette ayant un “System” 
différent, sans activer 


automatiquement le système du 
programme. 

Exemple : la disquette Multiplan 
comporte son système normal, 
mais nous souhaitons travailler à 
l'écran à partir d'un système ne 
comportant que les polices 


minimales, pour voir plus de 
lignes et de colonnes à l'écran. 
Au moment de lancer 
l'impression, nous réactivons le 
système normal, afin d'obtenir de 
jolis caractères. 





On ne copie pas ! 


Pour interdire les copies d'écran 
- sur papier ou sur disquette - 
avec la séquence de touche 
“Commande/Majuscules/3 ou 4” 
il faut utiliser : 

POKE &h2F8,0 

Notons que ceci interdit aussi 
l'éjection des disquettes avec 
“Commande/Majuscules/1 ou 2”. 


Pour de nouveau autoriser ces 
fonctions : 


POKE €h2F8,1 


Passage à Excel 


Quand on charge des tableaux 
Muitiplan dans Excel, une fenêtre 
de dialogue peut apparaître, 
demandant si l'on souhaite avoir 
seulement le total des erreurs : ce 
n'est pas la peine de demander 
plus de détail ; on ne pourra de 
toute façon rien y faire. 
Les erreurs proviennent par 
exemple de fonctions telles 
Nbiter() ou Delta() qui, dans 
Excel, sont remplacées par des 
ètres de calcul itératif placés 
dans des fenêtres. 


De même, les formats d'Excel 
sont plus riches, sauf en ce qui 
concerne le format Histogramme 
qui n'existe plus, probablement à 
cause de la facilité de réaliser des 
graphiques avec Excel. 


Si l'on traduit souvent des 
tableaux de Multiplan vers Excel, 
le mieux est de construire des 
macros qui automatisent autant 
que possible les conversions les 
plus fréquentes (par exemple 
pour les formats). 


‘Bip’ ou pas ‘Bip’ 

Pour mettre en ou hors fonction 
le haut parleur depuis un 
programme, il faut ‘POKer’ 
respectivement 1 ou 0 à l'adresse 
$260. 

Quelqu'un connaît-il la méthode 
pour faire varier simplement le 
niveau sonore ? 
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<&L DISQUETTE MAC À 


SORT MENU : un utilitaire de tri de menus ; 

PAINT MOVER : copier et manipuler les 
images MacPaint (uniquement sur 
512Ko ou Plus) ; 

ACCESSOIRES DE BUREAU 
‘MOCK' : mini traitement de texte, 
grapheur et terminal ; 

CONVERT DAM : pour passer de DA Mover 
à FontDA Mover ; 

FEDIT : un éditeur de blocs et de fichiers (en 
anglais) ; 

CUBE : un jeu en accessoire ; 
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IDLE : pour préserver votre écran durant de 
longs traitements ; 

MULTISCRAP : accessoire permettant de 
disposer de plusieurs album à la fois ; 

C CHECK : pour vérifier les niveaux de 
parenthèses en langage ‘C'; 

HEX CALC : l'indispensable calculatrice 
hexadécimale ; 

MEGAROIÏDS : un jeu d'adresse ; 

MEM WINDOW : permet de lister la 
mémoire du Mac. 


Vos impôts avec 
Multiplan sur 
Macintosh 


La feuille de calcul Multiplan 
listée pages suivantes et 
destinée à l'Apple // est 
compatible avec Multiplan 
sur Macintosh. Il faut : 


+ saisir la liste avec un. 
traitement de texte 
quelconque (MacWrite, 
Word, éditeur MDS) ; 

° remplacer la première 

ligne (ID;PMP) par 

ID;PMP;N; 

sauvegarder le tout sous 

format TEXTE ; 

charger le fichier résultant 

depuis Multiplan. 


Une version spécialement 
modifiée pour le Macintosh 
est disponible sur la 
disquette Mac 23. 





DISQUETTE MACINTOSH 23 


Cette nouvelle disquette est accompagnée de la version “Run Time” du Basic Microsoft 2.10, qui ne 
comporte que l'interpréteur. Ceci permettra à ceux d'entre-vous qui ne disposent pas du Basic d'utiliser les 
programmes publiés dans Pom's. Cette version ne remplace pas le Basic Microsoft tel que l'on peut le trouver 
dans le commerce (elle permet seulement l'exécution des programmes), mais a l'avantage de prendre moins de 


é Fichier Edition Sélection Format Options Calcul 


place sur les disquettes. 


Vous trouverez aussi une version 
‘Mac’ de la feuille de calcul 
Multiplan dlistée pages 
suivantes, autorisant un calcul 
simple du montant de vos impôts. 


Keeper est un petit utilitaire qui 
garde le Finder en mémoire, 
réduisant ainsi le temps de retour 
au bureau à mois d'une seconde 
(ne fonctionne pas sur un 
Macintosh 128Ko). 


Et, bien sûr, les fichiers et 
programmes liés aux articles 
publiés dans ce numéro. 


| L46C12 | 
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IMPÔTS 


MUILTIPILAN 


uite logique du pensum 
que constitue chaque 
année la déclaration de 
revenus, voici le 
nécessaire pour calculer sim- 
plement le montant de vos impôts. 


Nous avons le privilège d'avoir 
un Code Général des Impôts 
détaillé (euphémisme !). Le 
résumer dans une feuille de calcul 
d'Apple n'entre heureusement pas 
dans nos ambitions : il n'est 
question ici que d'un calcul 
utilitaire intégrant les revenus de 
la grande majorité des 
contribuables. La présente feuille 
de calcul est le reflet de la fiche de 
calcul facultatif, pages 9 à 12 de 
votre notice. 


Les calculs 


Pour la détermination de l'impôt, 
il a été tenu compte des limites, 
- déductions et abattements en tous 
genres avec leurs limites 
inférieures et supérieures, des 
éventuels ‘abattements spéciaux’, 


du plafonnement du quotient 
familial, des éventuelles décotes, 
de la minoration de 3 % 1985, du 
1 % sur le revenu des capitaux 
mobiliers et autres avoirs 
fiscaux. 

Les lecteurs d'Outre-Mer seront 
déçus : il n'a pas été possible d'y 
intégrer le plafonnement D.O.M. 


Comment faire ? 


Le fichier listé dans ces pages est 
en format symbolique. Si ne vous 
disposez pas de la disquette 
d'accompagnement, vous devrez 
saisir le-dit fichier à l'aide d'un 
traitement de texte, le sauvegarder 
en format TEXT, le relire sous 
Muitiplan en précisant format 
symbolique. Cette feuille de calcul 
occupera 99 % de la mémoire 
disponible sur un Apple // 64 Ko, 
et 57 % sur un 128 Ko. 


De la ligne 1 à la ligne 64, vous 
trouverez une copie de votre 
déclaration de revenus : il vous 
suffit de recopier celle-ci dans 


dame SE tes RS ms he 
TE EC 2 3 4 5 6 % 8 2 10 11 ; 
| 41 5) TRAITEMENTS, SALAIRES l 
|! 42 KA 120.000 KC 0 K © KE 7.500 KG 40 KH ! 
| 43 LA 117.000 LC 0 LD O0 LE 12.000 LG 30 LH { 
| 44 MR 0 M 0 M 0 ME 0 MG Ô rmH t 
! 45 NA 0 NC O0 NO O0 NE 0 KG © NH f 
| 46 PA 0 PC 0 PO 0 PE 0 PG © PH ; 
| 47 AA 0 RC 0 RD O0 RE 0 RG 0 FH } 
| 48 SA 0 SC 0 SD 0 SE 0 SG 0 SH ! 
| 49 TA 0 TC 0 TD 0 TE 0 TG 0 TH ! 
| 50 UR 0 UC 0 UD O0 VE 0 UG 0 UH ! 
! Si UR 0 UC 0 UD O0 VE 0 UG O0 UH ; 
EE ts a es een ee 
St nes ed 
1-2 1 2 3 4 12 9 10 11 12 13 14 ; 
! 56 AA 5.670 AB 0 11123 COMPLEMENTAIRE 1# 0 ! 
| 57 BA 0 8B O0 !1124 CREDITS AVOIRS FISCAUX 0 ! 
| 58 CA 0 CB 0 !1125 IMPOT DU MECS 
ns om dd me 


SORTIE: IQIMITME Fichier Paga Options 


Choisissez une option ou frappez le caractere de commande 
Hultiplan: IMPOT,02 


L125C14 L<-3)C+L<C-2X-LC-1C 
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57% Libre 


Christian 
Piard 


Muitiplan. 

Par exemple, vous avez déclaré à 
votre percepteur un salaire 
imposable de 100 000,00 F que 
vous avez inscrit dans le +5, ligne 
KA ; il vous suffit de reporter 
cette somme dans la feuille de 
calcul, cellule L42C2, celle qui 
vient juste après la mention KA. Il 
en va de même pour l'ensemble 
des sommes que vous avez 
portées sur votre déclaration. 
Ligne 125, vous devriez alors 
trouver le montant de l'impôt dû, 
les calculs intermédiaires se 
faisant dans les lignes 66-123. 


Attention, au hasard de vos 
essais, pour effacer un montant, 
mettez O0, mais ne laissez pas la 
cellule à blanc : les abattements et 
plafonnements deviendraient 
fantaisistes… 


Quelques précisions 


Seul un fiscaliste est capable de se 
retrouver dans les inextricables 
méandres de la législation. Cette 
feuille de calcul a été testée dans 
bien des cas, les planchers et 
plafonds vérifiées maintes fois 
mais, dans ce domaine, on ne 
peut être exhaustif ; il reste certai- 
nement des cas où l'interaction de 
telle condition avec telle autre 
pose un problème. 


Le but de cette feuille est utilitaire, 
n'y cherchez pas une finesse de 
programmation confinant à l'Art. 
L'utilisateur ne peut d'ailleurs être 
que modeste devant les auteurs de 
Muiltiplan, auteurs que certains 
appellent les ‘Paganinis de 
l'informatique’. 

Des artistes quoi ! 


33 
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Fichier 
‘IMPOTS’ 


ID; PMP 
F;K;DG0G10 
F:NT 1 3 
F;N3 3 3 
F;W5 5 3 
F;N7 7 3 
F;W9 9 3 
F;W11 11 3 
F;W13 13 3 
F;FI0C;C1 
F;FI0C;C5 
F;FI0C;C9 
F;FI0C;C11 
F;FI0G;C2 
F;FI0G;C3 
F;FI0G;C4 
F;FI0G;C6 
F;FI0C;cC7 
F;FI0G;C8 
F;FI0G;C10 
F;FI0G;C12 
F;FI0G;C13 
F;FI0G;C14 
B;Y125;X15 
C;Y1;X1;K"SITUATION DE 
FAMILLE (M=1/C=2/D=3 
/=V=4)" 
F;FCOR 
F;X2;FCO0R 
F;X3;FCOR 
F;,X4; FCOR 
F;X5;FCOR 
F;X6;FCOR 
C;X8;K1 
C;Y2;X1;K"INVALIDE (0/1 
pe 


F;FCOR 

F;X2;FCOR 

F;X3;FCOR 

F;X4;FCOR 

F;X5;FCOR 

F;X6;FCOR 

C;X7;K°"P" 

C;X8;K0;G 

C;Y3;8;R2;C8 

C;Y4;3 

C;:Y5;8 

C;Y6;S 

C;Y7:53 

C;Y*8;5 

C;Y9;8 

C;*3;X1;K"EPOUSE INVALI 
DE (0/1)" 

F;FCOR 

F;X2;FCOR 

F;X3;FCOR 

F;X4;FCOR 

F;X5;FCOR 

F;X6;FCOR 

C;X7;K'"A" 

C;Y4;X1;K'"ENFANTS" 

F;FCOR 

F;X2;FCOR 

F;X3;FCOR 

F;X4;FCOR 

F;X5;FCOR 

F;X6;FCOR 

C;X7;K"F" | 

C;Y5;X1;K'"ENFANTS INVAL 
IDES TITULAIRES CART 
E" 

F;FCOR 

F;X2;FCOR 

F;X3;FCOR 

F;X4;FCOR 

F;X5;FCOR 

F;X6;FCOR 

C;X7;K"G" 

C;Y6;X1;K'"ENFANTS INVAL 
IDES" 

F;FCOR 

F;X2;FCOR 

F;X3;FCOR 

F;X4;FCOR 

F;X5;FCOR 

F;X6;FCOR 

C'XFEREHT 

C;Y7;X1;K"ENFANTS CELIB 
ATAIRES RATTACHES" 


F;FCOR 
F;X2;FCOR 
F;X3;FCOR 
F;X4;FCOR 
F;X5;FCOR 
F;X6;FCOR 
C'ETIRUI" 
C;Y8;X1;K'"ENFANTS MARIE 
S RATTACHES" 
F;FCOR 
F;X2;FCOR 
F;X3;FCOR 
F;X4;FCOR 
F;X5;FCOR 
F;X6;FCOR 
C;X7;K"N" 
C;Y9;X1;K'"INVALIDES SOU 
$S LE TOIT" 
F;FCOR 
F;X2;FCOR 
F;X3;FCO0R 
F;X4;FCOR 
F;X5;FCOR 
F;X6;FCOR 
CAT: 'R" 
C;Y10;X1;K"AGE" 
F;FCOR 
F;X2;FCOR 
F;X3;FCOR 
F;X4;FCOR 
F;X5;FCOR 
F;X6;FCOR 
C;X8;K30 
C;Y11;X2;K'"l) REVENUS D 
ES VALEURS ET CAPITA 
UX MOBILIERS" 
F;FCOL 
F;X3;FCOL 
F;X4;FCOL 
F;X5;FCOL 
F;X6;FCOL 
F;X7;FCOL 
F;X8;FCOL 
C;Y12;X11;K"S" 
C;X12;K0 
C;Y13;X11;K"U" 
C;X12;K0;G 
C;Y14;S;R13;C12 
C;Y15;s 
C;Y*16;5 
C;:Y17;s 
C;Y18;5 
C'Y14;:KXIL/K°V" 
C:Y15;K"N° 
C'YISSE"X" 
CHYITERPYT 
C;Y*18;K°2" 
C;Y19;X2;K"2) REVENUS F 
ONCIERS" 
F;FCOL 
F;X3;FCOL 
F;X4;FCOL 
F;X5;FCOL 
F;X6;FCOL 
F;X7;FCOL 
F;X8;FCOL 
C;:Y20;X9;K"A" 
C;X10;K0 
C;:X11:F"D" 
C;X12;K0 
F;FIOR 
C;Y21;X11;K°"D" 
C;X12;K0;G 
F;FIOR 
C;Y22;S8;R21 
F;FIOR 
C;X9;K"M" 
C;X10;K0;G 
C;X11;K"N" 
C;Y23;X2;K"3) REVENUS D 
ES PROFESSIONS NON S 
ALARIEES" 
F;FCOL 
F;X3;FCOL 
F;X4;FCOL 
F;X5;FCOL 
F;X6;FCOL 
F;X7;FCOL 
F;X8;FCOL 
C;Y24;X3;K'"KA”" 
F;FI0C 
C;X4;K0 
C;X5;K"KB" 
C;X6;K0 


C'X7;:K"KC" 
C;X8;K0 
C;X9;K"KD" 
C;X10;K0 
C;X11;K"KE" 
C;X12;K0 
C;:Y25;X3;K"LA" 
F;FI0C 
C;X4;K0;G 
C;:Y26;:85;:R25;C4 
C;x28;S 
c;Y29;5S 
C;Y31;sS 
C;x32;S 
C;Y33;8 
C;Y34;S 
C;Y25;X5;K"LB" 
C;X6;K0;G 
C;Y26;S;C6 
C:Y27;8 
c;r28;5S 
C;Y29;5s 
Cc;Y30;Ss 
C;:Y*31;s 
C:Y32;S 
C;:Y33;sS 
C;Y25:X7;:K"LC" 
C;X8;K0;G 
C;Y26;5;c8 
C;Y27:8 
C;Y28;5s 
C;Y29;S 
C;Yx30;Ss 
C;Y31;s 
C;:Y32;s 
C;Y33;s8 
C;*25;X9;K"LD" 
C;X10;K0 
C;X11;K'"LE" 
C;X12;K0;G 
C;Y26;S;C12 
C;Y27;s 
C;Y28;S 
C;Y29;S 
C'r31;S 
C;:Y32;3 
C:*33;s 
C;:Y34;8 
C;Y*26;X3;K"MA" 
F;FI0C 
C;X5;K'"MB" 
C;X7;K'"MC" 
C;X9;K'"MD”" 
C;X10;K0;G 
C;Y27;S8;R26;C10 
C;Y28;S 
C;Y29;8 
C;Y30;s 
C;*31;8 
C;:*32;5 
Cc;Y33;5S 
C:Y735;8 
C;Y26;X11;K"NE" 
C;*27;X3;K"NA" 
F;FI0C 

C;X4;K0 
C;X5;K"NB" 
C;X7;K"NC" 
C;X9;K"ND”" 
C;X11;K'"NE" 
C;Y28;X3;K'"PA" 
F;FI0C 
C:X5;K"?P»" 
C;X7;KR"PC" 
C;X9;K"PD" 
C;:X11;E"PE" 
C;Y29;X3;K"RA" 
F;FI0C 
C;X5;K"RB" 
C:X7:K"RC" 
C;X9;K'"RD" 
C;X11;K'"RE" 
C;Y30;X3;K"SA" 
F;FI0C 

C;X4;K0 
C;X5;K"SB" 
C'a7;K"sC" 
C;X9;K"SD" 
C;Y31;:X3;K"TA" 
F;FI0C 
C;X5;K°"7D" 
CAT; K'EC? 
C;X9;K"T7D" 
C'XIIZKTTE" 





C;Y32;X3;K"UA" 
F;FI0C 
C;X5;K"UB" 
C:X7;K"0C" 
C;X9;K"UD”" 
C;X11;K'"UE" 
C;Y*33;X3;K"WA" 
F;FI0C 
C;X5;K"WB" 
C;X7;K'"WC" 
C;X9;K"WD”" 
C;X11;K"WE" 
C;Y34;X3;K"XA" 
F;FI0C 
C;:X7;K"XxC" 
C;X8;K0 
C;X9;K"XD" 
C;X10;K0 
C;X11;K'"XE" 
C:Y33;X7:R"YC" 
C;X8;K0 
C:X9;K"YD" 
C;Y36;X2;K"4) PLUS-VALU 
ES DIVERSES ET PROFI 
TS DE CONSTRUCTION" 
F;FCOL 
F;X3;FCOL 
F;X4;FCOL 
F;X5;FCOL 
F;X6;FCOL 
F;X7;FCOL 
F;X8;FCOL 
F;X9;FCOL 
F;X10;FCOL 
C;Y37;X1;K'"AJ" 
C;X2;K0 
C;X7;K'"AM" 
C;X8;K0 
C;X9;K'"AN" 
C;X10;K0 
C;X11;K'"AP" 
C;X12;K0 
C;Y*38;X1;K"BJ" 
C;X2;K0 
C;X3;K"BK" 
F;FI0C 
C;X4;K0;G 
C;Y39;S;R38;C4 
C;Y40;S 
C;Y*38;X7;K"BM" 
C;X8;K0;G 
c;:Y39;s;c8 
C;Yx40;5S 
C;Y*38;X9;K"BN" 
C;X10;K0 
C;X11;K"BP" 
C;X12;K0 
C;Y39;X3;K"CK" 
C;X5;K"CL" 
C;X6;K0 
C;X7;K"CM" 
C;X9;K"CN" 
C;X10;K0 
C;X11;K"CP" 
C;X12;K0 
C;Y40;X3;K"DK" 
C;X5;K"DL" 
C;X6;K0 
C;X7;K"DM" 
C;Y41;X2;K"5) TRAITEMEN 
TS, SALAIRES" 
F;FCOL 
F;X3;FCOL 
F;X4;FCOL 
F;X5;FCOL 
F;X6;FCOL 
F;X7;FCOL 
F;X8;FCOL 
F;X9;FCOL 
C;Y42;X1;K'"KA" 
C;X2;K0 
C;X3;K'"KC" 
F;FI0C 
C;X4;K0;G 
C;Y43;S;R42;C4 
C;Y*44;5 
C;Y45;5 
C;Y46;5 
C;Y*47;5 
C;Y48;5 
C;Y49;5 
C'Y51:8 
C;:Y52;8 
C:Y53;:8 
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C;Y42;X5;K'"KD" 
C;X6;K0;G 
C;Y43;S;c6 
C;Y44;5S 
C;Y45;5s 
C;Y46;S 
C;Y47;5 
C;Y48;5s 
C;Y49;S 
c;Y51;Ss 
C;Y52;5 
C:Y53;s 
C;Y*42;X7;K"KE" 
C;X8;K0 
C;X9;K'"KG" 
C;X10;K0 
C;X11;K"KH" 
C;X12;K0;G 
C;Y*43;s;c12 
C;Y44;5 
C;Y45;5S 
C;Y46;5 
C;Y47;5S 
C;Y48;5 
C;Y49;5S 
C;Y50;S 
C;:Y51;8 
C;:Y52:58 
C;x53;5 
C;Y42;X13;K'"KJ" 
F;FI0C 
C;X14;K0;G 
C;Y43;5S;C14 
C;Y44;5 
C;r45;5s 
C;Y46;5 
C;Y47;5 
C;Y*48;5S 
C;Y49;5 
Cc;rx50;s8 
C;Y*51;5s 
C;Y52;8 
C;x*53;5s 
C;Y*43;X1;K'"LA" 
C;X2;K0 
C;:AX3;R"LC" 
F;FI0C 
C;X5;K'"LD" 
C;X7;K'"LE" 
C;X8;K0;G 
C;Y44;S;R43;C8 
C;Yx45;s 
C;Y46;5 
C;x47;8 
C;Y48;5S 
C;Y49;5S 
.C:Y50;s 
C’r51;:8 
C;Y52;5s 
c;Y*53;5s 
C;Y43;X9;K"LG" 
C;X10;K0;G 
C;Y44;5;C10 
C;Y45;5 
C;Y46;5 
C;Y47;5 
C;Y48;5 
C;Y*49;S 
C;Yx50;s 
C;Y51;5 
C;Y52;5 
C;Y53;8 
C;Y43;X11;K"LH" 
C;X13;K'"LJ" 
F;FI0C 
C;Y*44;X1;K'"MA" 
C;X2;K0;G 
C;Y45;S;R44;C2 
C;Y46;5S 
C;Yx47;5 
C;Y*48;5 
C;Y49;Ss 
C;Yx50;S 
C;Y51;5s 
Cc;Y52;5s 
C;x53;5s 
C;x54;5 
C;Y44;X3;K'"NC" 
F;FI0C 
C;X5;K"MD" 
C;X7;K°ME" 
C;X9;K"MG" 
C;X11;K°MH" 
C:X13;K'NJ" 


F;FIO0C 
C;Y45;X1;K"NA" 
C'X3;K°"NC" 
F;FI0C 
C;X5;K"ND" 
C;X7;K"NE" 
C;X9;K'"NG" 
C;X11;K"NH" 
C;X13;K"NJ" 
F;FI0C 
C;Y46;X1;K"PA" 
C;X3;K"PC" 
F;FIO0C 
C;X5;K"PD" 
C;X7;K'"PE" 
C;X9;K"PG" 
C;X11;K"PH" 
C;X13;K"PJ" 
F;FrI0C 
C;Y*47;X1;K"RA" 
C;X3;K"RC" 
F;FI0C 
C;X5;K"RD" 
C;X7;K"RE" 
C;X9;K"RG" 
C;X11;K"RH" 
C;X13;K"RJ" 
F;FI0C 
C;Y48;X1;K"SA" 
C;X3;K"SC" 
F;FI0C 
C;X5;K"SD" 
C;X7;K"SE" 
C;X9;K"SsG" 
C;X11;K"sH" 
C;X13;K"SJ" 
F;FI0C 
C;Y49;X1;K"TA”" 
C;X3;:R"TC" 
F;FI0C 
C;X5;K"TD" 
C;X7;K"TE" 
C;X9;K"TG" 
C;X11;K"TH" 
C;X13;K"TJ" 
F;FI0C 
C;Y50;X1;K"UA" 
C;X3;K'"UC" 
F;FI0C 
C;X4;K0 
C;X5;K"UD" 
C;X6;K0 
C;X7;K"UE" 
C;X9;K"UG" 
C;X11;K'"UH" 
C;X13;K"U0J" 
F;FI0C 
C;YS51;X1:K"VA" 
C'X3"KR"vVC" 
F;FI0C 
C;X5;K"VD" 
C;X7:K'VE" 
C;X9;K"VG" 
C;X11;K'"VA" 
C;X13;K"VJ" 
F;FI0C 
C;Y52;X1;K'"WA" 
C;X3;K"NWC" 
F;FrI0C 
C;X5;K"ND" 
C;X7;K°NE" 
C;X9;K"NG" 
C;X11;K"WH" 
C;X13;K'"NWJ" 
F;FI0C 
C;Y53;X1;K"XA" 
C;X3;K"XC" 
F;FI0C 
C;X5;K"XD" 
C;X7;K'"XE" 
C;X9;K"XG" 
C;X11;K"XH" 
C;X13;K"XJ" 
F;FI0C 
C;Y54;X1;K"YA" 
C;Y55;X2;K"6) CHARGES À 
DEDUIRE" 
F;FCOL 
F;X3;FCOL 
F;X4;FCOL 
F;X5;FCOL 
F;X6;FCOL 
F;X7;FCOL 
F;X8;FCOL 





C;Y56;X1;K"AA" 
C;X2;K0 
C;X3;K"AB" 
F;FIO0C 
C;X4;K0 
C;X5;K"AC" 
C;X6;K0 
C:XT7:K"AD" 
C;X8;K0 
C;X9;K'"AE" 
C;X10;K0;G 
C;Y59;S;R56;C10 
C;:Y56;X11;K"°"Ar7" 
C;X12;K0 
C;X13;K"AR" 
C;X14;K0 
C;Y57;X1;K"BA" 
C;X2;K0 
C;X3;K"BB" 
F;FI0C 
C;X4;K0 
C;X5;K"BE”" 
C;X6;K0 
C;X9;K"BR" 
C;X10;K0 
C;Y58;X1;K"CA" 
C;X2;K0 
C;X3;K"CB" 
F;FI0C 
C;X4;K0;G 
C;Y59;S;R58;C4 
C:YSS;X7;K"CP" 
C;X8;K0 
C;X9;K"CR" 
C;X10;K0 
C;X11;K"CS" 
C;X12;K0 
C;Y59;X1;K"DA" 
C;X2;K0;G 
C;X3;K'"DB" 
F;FI0C 
C;X5;K"DE" 
C;X6;K0;G 
C;X7;K"DP" 
C;X8;K0;G 
C;X9;K"DR" 
C;Y60;X2;K"7) CHARGES O 
UVRANT DROIT À DES R 
EDUCTIONS D'IMPOT" 
F;FCOL 
F;X3;FCOL 
F;X4;FCOL 
F;X5;FCOL 
F;X6;FCOL 
F;X7;FCOL 
F;X8;FCOL 
C;Y*61;X1;K"GA" 
C;X2;K0;G 
C;Y63;S;R61;C2 
C;Y64;5S 
C;Y*61;X3;K"GB" 
F;FI0C 
C;X4;K0;G 
C;Y62;S;C4 
c;Y63;5S 
C;Y61;X5;K"GC" 
C;X6;K0;G 
C;Y62;5;Cc6 
C;Y63;5 
C;Y64;5 
C;Y61;X7;K"GE" 
C;X8;K0;G 
C;:Y62;5;c8 
C;Y63;5s 
C;Y*64;5 
C;Y61;X9;K"GP" 
C;X10;K0;G 
C;Y*62;8;C10 
C;Y*63;5s 
C;Y64;5S 
C;Y61;X11;K"GS" 
C;X12;K0 
C;Y*62;X1;K'"HA" 
C;X2;K0 
C;X3;K"HB" 
F;FrI0C 
C;X5;K"HE" 
C'X7-K"RP" 
C;X9;K'"HR" 
C;Y63;X1;K"JA" 
C;X3;K"JB" 
F;FI0C 
C;X5;K"JC" 
C;X7;:K"JE" 


C;X9;K"JP" 

C;Y64;X1;K"XA" 

C;X5;K"XE" 

C;X7;K"XP" 

C;X9;K"XR" 

C;Y68;X2;K'"REVENUS DES 
VALEURS ET CAPITAUX 
MOBILIERS" 

F;FCOL 

F;X3;FCOL 

F;X4;FCOL 

F;X5;FCOL 

F;X6;FCOL 

F;X7;FCOL 

F;X8;FCOL 

F;X9;FCOL 

C;Y69;X2;EIF(R[-56]C[+1 
0]>=1000,R[-56]C[+10 
],0)+R[-55]C[+10];K0 

F;FIOR 

C;X4;:EIF(R[-56]C[+8]>=1 
000,1000,0)+IF(R[-55 
]JC[+8]>=5000,5000,R[ 
-55]C[+8]);K0 

F;FIOR 

C;X6;ERC[-4]-RC[-2];K0 

F;FIOR 

C;X8;EMAX(RC[-2],RC[-2] 
+IF(R[(-54]C[+4]>=300 
0,R[-54]C[+4]-3000,0 
)J+R[-53]C[+4]-R[-52] 
C[+4]+R[-57]C[+4]);Kk 
0 


F;FIOR 

C'X13>/75"L.1" 

F;FIOR 

C;X14;/ERC[-6];K0 

F;FIOR 

C;Y*70;X2;K'"REVENUS FONC 
TERS" 

F;FCOL 

F;X3;FCOL 

F;X4;FCOL 

F;X5;FCOL 

F;X6;FCOL 

F;X7;FCOL 

F;X8;FCOL 

C;X13;K"L 2" 

F;FIOR 

C;X14;/EMAX(R[-50]C[-4]+ 
R[-48]C[-4]-(R[-50]C 
[-2]+R[-49]C[-2]+R[- 
48]C[-2]),0);Kk0 

F;FIOR 

C;*71;X2;K"REVENUS DES 
PROFESSIONS NON SALA 
RIEES" 

F;FCOL 

F;X3;FCOL 

F;X4;FCOL 

F;X5;FCOL 

F;X6;FCOL 

F;X7;FCOL 

F;X8;FCOL 

F;X9;FCOL 

C;Y72;X4;ESUN(R[-48]C:R 
[-43]C)-SUM(R[-42]C: 
R{-39]C);D;K0 

C;X6;S;R72;C4;K0 

C;X8;S;K0 

C;X10;S;K0 

C'X12;8"x0 

F;X5;FI0G 

F;X7;FI0G 

F;X9;FI0G 

F;X11;FI0G 

C;Y73;X10;EMAX(R[-1]C-I 
F(R[-1]C>3000,R[-1]C 
/2,1500),0);D;K0 

C;X12;/ENAX(R[-1]C-IF(RI 
-1]C>8000,R[-1]C*0.2 
5,2000),0);K0 

CyY74;X13;K"L 3° 

F;FIOR 

C;X14;/ENAX(R[-40]C[-6]+ 
R[(-40]C[-4]-R[-39]CI 
-6]-R[-39]C[-4],0);K 
0 


C'YTS:NIS'E"L 4" 

F;FIOR 

C;X14;ESUM(R[-2]C[-4]:R 
[-2]C[-2])+S0UM(R[-3] 
C[-6]:R[-3]C[-10]);K 
0 
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C;Y76;X2;K'"PLUS-VALUES 
A COURT TERME ET PRO 
FITS DE CONSTRUCTION 
"” 


F;FCOL 

F;X3;FCOL 

F;X4;FCOL 

F;X5;FCOL 

F;X6;FCOL 

F;X7;FCOL 

F;X8;FCOL 

F;X9;FCOL 

F;X10;FCOL 

C;X13;:K°"L 5° 

F;FIOR 

C;X14;/ER[-39]C[-12]+R[- 
38]C[-12]-R[-38]C[-1 
0]+MAX(SUM(R[-39]C[- 
4]:R[-37]C[-4])-SUM( 
R[-39]C[-2]:R[-37]C[ 
-2]),0);K0 

C;Y77;X2;K'"TRAITEMENTS, 

SALAIRES, PENSIONS 

RENTES" 

F;FCOL 

F;X3;FCOL 

F;X4;FCOL 

F;X5;FCOL 

F;X6;FCOL 

F;X7;FCOL 

F;X8;FCOL 

F;X9;FCOL 

C;Y78;X2;ER[-36]C+R[-36 
]JC[+2];K0 

C;X4;ER[-35]C[-2]+R[-35 
]C;Kk0 

C;X6;ER[-34]C[-4]+R[-34 
]C[-2];K0 

C;X8;ER[-33]C[-6]+R[-33 
]C[-4];K0 

C;X10;ER[-32]C[-8]+R[-3 
2]C[-6];Kk0 

C;X12;ER[-31]C[-10]+R[- 
31]C[-8];D;K0 

C;X14;ESUN(R[-30]C[-12] 
:R[-29]C[-10]);K0 

C;Y79;X2;EMIN(MAX(MIN(M 
AX(R[-1]C*0.1,1800), 
R{-1]C,57840),R[-37] 
C[+4]),R[-1]C);K0 

C;X4;EMIN(MAX(MIN(MAX(R 
[-1]C*0.1,1800),R[-1 
]C,57840),R[-36]C[+2 
]),R[-1]C);K0 

C;X6;EMIN(MNAX(MIN(MAX(R 
[-1]C*0.1,1800),R[-1 
1C,57840),R[-35]C),R 
[-1]C);Kk0 

C;X8;EMIN(MAX(MIN(MAX(R 
[-1]C*0.1,1800),R[-1 
1C,57840),R[-34]C[-2 
1),R[-1]C);K0 

C;X10;EMIN(MAX(NIN(MAX( 
R{(-1]C*0.1,1800),R[- 
1]C,57840),R[-33]C[- 
4]),R[-1]C);K0 

C;X12;EMIN (MAX (MIN (MAX ( 
R[-1]C*0.1,1800),R[- 
1]C,57840),R[-32]C[- 
6]),R[-1]C);D;K0 

C;X14;S;R79;C12;K0 

C;Y80;X2;EMIN((R[-38]C[ 
+6]*R[-38]C[+8]+R[-3 
8]C[+10]*R[-38]C[+12 
])*0.009,50000);K0 

C;X4;/E(R[-37]C[+4]*R[-3 
7]1C[+6]+R[-37]C[+8]* 
R(-37]C[+10])*0.009; 
KO 

C;X6;E(R[-36]C[+2]*R[-3 
6]C[+4]+R[-36]C[+6]* 
R[(-36]C[+8])*0.009;K 
0 


C;X8;E(R[-35]C*R[-35]C[ 
+2]+R[-35]C[+4]*R[-3 
5]C[+6])*0.009;K0 

C;X10;E(R[-34]C[-2]*R[- 
34]C+R(-34]C[+2]*R[- 
34]C[+4])*0.009;K0 

C;:X12;E(R[-33]C[-4]*R[- 
33]C[-2]+R{(-33]C*R[- 
33]C[(+2])*0.009;D;K0 

C;X14;:E(R[-32]C[-6]*R[- 
32]C[-4]+R[-32]C[-2] 


*R[-32]C+R[-31]C[-6] 
*R[-31]C[-4]+R{-31]C 
[-2]*R[-31]C)*0.009; 
K0 


C;Y81;X2;ER[-3]C-R[-2]C 
-R[-1]C;D;K0 
C;X4;S;R81;C2;K0 
C;X6;S;K0 
C;X8;S;K0 
C;X10;S;K0 
C;:X12;S5;K0 
C;X14;S;K0 
C;Y*82;X2;EIF(R[-32]C>18 
00,MAX(R[-32]C*0.1,1 
800),R[-32]C);D;K0 
C;X4;EIF(R[-31]C[-2]>18 
00,MAX(R[-31]C[-2]*0 
.-1,1800),R[-31]C[-2] 
);K0 
C;X6;EIF(R[-30]C[-4]>18 
00,MAX(R[-30]C[-4]*0 
.-1,1800),R[-30]C[-4] 
);K0 
C;X8;EIF(R[-29]C[-6]>18 
00,MAX(R[-29]C[-6]*0 
.1,1800),R[-29]C[-6] 
);K0 
C;X10;ESUM(RC[-8]:RC[-2 
1);K0 
C;Y83;X2;EIF(R[-1]C[+8] 
>24400,R[-1]C*24400/ 
R[-1]C[+8],R[-1]C);D 
;K0 
C;X4;EIF(R[-1]C[+6]>244 
00,R[-1]C*24400/R[-1 
]C[+6],R[-1]C);K0 
C;X6;EIF(R[-1]C[+4]>244 
00,R[-1]C*24400/R[-1 
]C[+4],R[-1]C);K0 
C;X8;EIF(R[-1]C[+2]>244 
00,R[-1]C*24400/R[-1 
]C[+2],R[-1]C);Kk0 
C;Y84;X2;ER[-3]C+R[-34] 
C-R[-1]C;K0 
C;X4;/ER[-3]C+R[-33]C[-2 
J-R[-1]C;K0 
C;X6;ER[-3]C+R[-32]C[-4 
J-R[(-1]C;K0 
C;X8;ER[-3]C+R[-31]C[-6 
J-R(-1]C;K0 
C;X10;ER[-3]C;D;K0 
C;X12;S;R84;C10;K0 
C;X14;S;K0 
C;Y85;X2;EMIN(R[-1]C*0. 
2,104600);D;K0 
C;X4;S;R85;C2;K0 
C;X6;S;K0 
C;X8;S;K0 
C;X10;S;K0 
C;X12;S;K0 
F;X5;FI0G 
F;X9;FI0G 
F;X11;FI0G 
C;X14;EIF(R[-37]C[-12]> 
192200,R[-1]C*0.1+17 
298,R[-1]C*0.2);K0 
C;Y86;X2;ER[-2]C-R[-1]C 
;D;K0 
C;X4;S;R86;K0 
C;X6;S;K0 
C;X8;S;K0 
C;X10;S;K0 
C;X12;S;K0 
C;X14;S;K0 
F;X5;FI0G 
F;X9;FI0G 
F;X11;FI0G 
C;Y87;X2;E(R[-37]C[+2]* 
R[(-37]C[+4]/100)+(RI 
-37]C[+6]*R[(-37]C[+8 
]/100)+(R[-37]C[+10] 
*R[-37]C[+12]/100);K 
0 


C;X4;E(R(-36]C*R[-36]C[ 
+2]/100)+(R[-36]C[+4 
J*R[-36]C[+6]/100)+( 
R[-36]C[+8]*R[-36]CI[ 
+10]/100);K0 

C:X6;:E(R[-35]C[-2]*R[-3 
5]C/100)+(R[-35]C[+2 
I*R[-35]C[+4]/100)+( 
R[-35]C[+6]*R[-35]C[ 
+8]/100);K0 

C;X8;:E(R[-34]C[-4]*R[-3 


4]C[-2]/100)+(R[-34] 
C*R[-34]C[+2]/100)+( 
R[-34]C[+4]*R[-34]C[ 
+6]/100);K0 

C;X13;K'"L 6" 

F;FIOR 

C;X14;/ESUM(R[-1]C:R[-1] 
C[-12]);K0 

C;Y88;X13;K"L 7" 

F;FIOR 

C;X14;/ESUN(R[-1]C[-12]: 
R[-1]C[-6]);K0 

C;Y89;X13;K"L 8" 

F;FIOR 

C;X14;/ER[-33]C[-4]+R[-3 
1]C[-10];K0 

C;Y90;X13;K"L 9" 

F;FIOR 

C;X14;ESUN(R[-1]C:R[-3] 
C)+SUN(R[-14]C:R[-16 
]C)+R[-20]C+R[-21]C; 
KO 


C;Y91;X13;K"L10" 

F;FIOR 
C;X14;/ESUN(R[-32]C[-12] 
:R[-32]C[-4]);K0 

C;Y92;X13;K"L1l" 

F;FIOR 

C;X14;/ER[-2]C+R[-1]C;K0 

C;Y93;X2;K"DEDUCTION DE 
S CHARGES" 

F;FCO0G 

F;X3;FC0G 

F;X4;FC0G 

F;X5;FC0G 

F;X6;FC0G 

F;X7;FC0G 

F;X8;FCO0G 

F;X9;FCO0G 

C;Y94;X1;K"J" 

C;X2;ENIN(R[-38]C, 5000* 
R[-38]C[+2]);K0 

C;X3;K"K" 

C;X4/ER[-38]C[+6]+MIN(R 
[-38]C[+2],16190*R[- 
38]C[+4]);K0 

C;X5;:K°L" 

C;X6;/EMIN(R[-36]C[-4],6 
000+R[-90]C[+2]*500+ 
IF(R[-90]C[+2]>2, (R[ 
-90]C[+2]-2)*500,0)) 
;:K0 

C;X7;K'"M" 

C;X8;EMIN(R([-36]C[+2],1 
3310)*R[-36]C[+4];K0 

C;X9;K"P" 

C;X10;ESUM(RC[-2]:RC[-8 
]);K0 

C;X12;ER[-2]C[+2]-RC[-2 
];K0 

C;Y95;X1;K°R° 

C;X2;EIF(R[-1]C[+10]<10 
0000,MIN(25000,R[-39 
]C[+10]),MIN(R[-1]C[ 
+10]/4,R[-39]C[+10]) 
);K0 

C;X3;K"S" 

C;X4;ER[-38]C[-2];K0 

C'XS;K"r" 

C;X6;/EMIN(R[(-38]C[-2],M 
AX(R[-1]C[+6]*0.01,1I 
F(R[-38]C=0,R[-1]C[+ 
6]*0.05,0)));K0 

C;X7;K°"V" 

C;X8/;EMIN(R(-38]C[+2],R 
[-1]C[+4]*0.1,400+R/ 
-91]C*100);K0 

C;X9;K"W" 

C;X10;/EMIN(R[-37]C[-2], 
R[-1]C[+2]/4);K0 

C;X13;K"L12" 

F;FIOR 
C;X14;/ER[-1]C[-4]+SUM(R 
C[-12]:RC[-4]);K0 

C;Y96;X13;K"L13" 

F;FIOR 

C;X14;/ER[-4]C-R[-1]C;K0 

C;Y*97;X13;K'"L14" 

F;FIOR 

C;X14;/ENIN(IF(AND(OR (R[ 
-95]C[-6]=1,R[-94]C[ 
-6]=1,R[-87]C[-6]>65 
),R[-1]C<73600),IF(R 
[-1]C<45600,72360, 368 


0), 0),R[-1]C);K0 

C;Y98;X10;K"NET IMPOSAB 
LE" 

F;rCc0G 

F;X11;FrCcC0G 

F;X12;FC0G 

F;X13;FC0G 

C;X14;/EINT((R[-2]C-R[-1 
]1C)/10)*10;K0 

C;Y99;X2;K"NOMBRE DE PA 
RTS" 

F;FCO0G 

F;X3;FC0G 

F;X4;FC0G 

F;X5;FIO0R 

C;X6;EIF(R[-98]C[+2]=1, 
2,1)+(R[-97]C[+2]+R[ 
-96]C[+2]+R[-95]C[+2 
J+R[-94]C[+2]+R[-92] 
C[+2]+R[-91]C[+2])/2 
+R[-90]C[+2];K2 

F;FF1G 

C;X10;K"QUOTIENT FAMILI 
AL" 

F;FCO0G 

FrF;X11;rCc0G 

F;X12;FrC0G 

F;X13;FC0C 

C;X14;/ER[-1]C/RC[-8];Kk0 

C;X15;/ER[-1]C[-1]/IF(R[ 
-98]C[-7]=1,2,1);K0 

C;Y100;X4;K0 

C;X6;K0 

F;F#$#0G 

C;Y101;X4;K15650 

C;X6;K0.05 

F;F$#0R 

C;X8;K782.5 

F;FF2G 

C;X10;K"TRANCHE RETENUE 


F;FCc0G 

F;X11;FrCc0G 

F;X12;rCc0G 

Fr; X13;FCO0C 

C;X14/;/ELOOKUP(R[-2]C,R[ 
-1]C[-10]:R[+12]C[-8 
]);D;K0 

F;F$#0G 

C;X15;ELOOKUP(R[-2]C,R[ 
-1]C[-11]:R[+12]C[-9 
J);K0 

F;Fr#0G 

C;Y102;X4;K16360 

C;X6;K0.1 

F;F$0R 

C;X8;K1600.5 

F;FF2G 

C;X10;K"IMPOT AVANT COR 
RECTION" 

F;FC0G 

FrF;X11;rCc0G 

F;X12;rCc0G 

F;X13;FC0G 

C;X14;/ER[-4]C*R[-1]C-RI[ 
-3]C[-8]*LOORUP (R[-3 
]JC,R[-2]C[-10]:R[+11 
IC[I-6]);K0 

C;:X15;ER[-4]C[-1]J*R[-1] 
C-IF(R[-101]C[-7]=1, 
2,1)*LOOKUP (R[-3]C,R 
[-2]C[-11]:R[+11]C[- 
7]);K0 

F;FI0G 

C;Y103;X4;K19400 

C;X6;K0.15 

F;F#%0R 

C;X8;K2570.5 

F;FF2G 

C;X10;K'"IMPOT APRES PLA 
FONNEMENT" 

F;FCO0G 

F;X11;rc0G 

F;X12;FC0G 

F;X13;FrC0G 

C;Y104;X4;:K30680 

C;X6;K0.2 

F;F$0R 

C;X8;K4104.5 

F;FF2G 

C;X10;K"DU QUOTIENT FAM 
ILIAL" 

F;FrcO0G 

F;X11;FrCc0G 


— Suite de ce fichier page 60 
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OFT.COPIE permet de 

recopier une disquette 

(non protégée) avec un 

seul drive, en seulement 
trois passes (contre neuf pour 
l'utilitaire FILER de ProDOS). 
Vous devez posséder un lecteur 
de disquette et 128Ko de RAM, la 
mémoire auxiliaire étant utilisée 
comme zone tampon. 


Son principal intérêt est qu'il 
permet de recopier une disquette 
avec un seul lecteur en seulement 
trois passes. Il est donc 
particulièrement destiné aux 
propriétaires d'APPLE //c ne 
possédant pas le lecteur de 
disquette externe. 


Il occupe très peu de place en 
mémoire principale et, en 
particulier, il ne détruit pas un 
programme Applesoft en 
mémoire, ni ses variables s'il est 
en cours d'exécution, et il ne 
dérange pas les éventuels fichiers 
ouverts. Vous pouvez donc 
l'incorporer comme utilitaire 
appelé par votre programme 
favori. 


Utilisation 


SOFT.COPIE est disponible en 
mode direct : il suffit de taper 
"BRUN SOFT.COPIE" (ou 
"-SOFT.COPIE"). A l'apparition 
du message, insérez votre 
disquette originale dans le lecteur, 
puis appuyez sur la touche 
<Return>. Au message suivant, 
insérez la disquette réception. 
Recommencez trois fois de suite, 
et c'est fini ! 


En fin de copie, il est possible de 
recommencer avec <Return>. 
Pour sortir de SOFT.COPIE, 
appuyez sur la touche <ESCape>. 
Cette dernière touche permet 
également d'abandonner une 
copie en Cours. 
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Opie 


Le programme vous signale les 
éventuelles erreurs rencontrées : 
disquette non insérée ou porte du 
lecteur ouverte, disquette protégée 
contre l'écriture, ou disquette non 
formatée. 


En effet, la disquette de réception 
devra auparavant avoir été 
formatée en 16 secteurs, soit sous 
ProDOS par l'utilitaire FILER ou 
la commande INIT parue dans 
Pom's 20, soit sous DOS 3.3 ou 
PASCAL par la procédure 
correspondante. 


SOFT.COPIE permet de recopier 
toute disquette formatée en 16 
secteurs, c'est à dire utilisée avec 
les systèmes d'exploitation 
ProDOS, DOS 3.3, Pascal ou 
CP/M. 

Ne confondons pas : SOFT. 
COPIE tourne sous ProDOS et 
nécessite, en particulier, le disque 
virtuel de 64Ko en mémoire 
auxiliaire. Il ne peut donc pas être 
utilisé avec un autre système 
d'exploitation (bien qu'il puisse 
recopier des disquettes de formats 
différents). 


Le message d'erreur 1/0 ERROR 
est généré si vous tentez d'utiliser 


Bruno 
Fénart 


SOFT.COPIE sans avoir de 
disque virtuel installé par 
ProDOS, en particulier si vous ne 
disposez pas d'une configuration 
mémoire totale de 128 Ko ou 
plus. 


Description 
technique 


En mémoire principale, SOFT. 
COPIE n'utilise que deux zones : 


+ la page 3 (adresses de $300 à 
$3CF) ; 

+ le buffer temporaire de 1Ko 
placé dynamiquement par 
ProDOS juste au-dessus de 
HIMEM:. 

La figure 1 illustre l'utilisation 
de ce buffer par ProDOS. 


Le disque virtuel 64Ko en 
mémoire auxiliaire, initialisé par 
ProDOS lors de son chargement 
initial, est utilisé en quasi-totalité 
par SOFT.COPIE. Néanmoins, 
les blocs du disque virtuel qui 
correspondent au mode texte 80 
colonnes et au graphique double 
haute-résolution sont préservés 
dans leur état initial. 


Figure 1 : Occupation de la mémoire avant et pendant une 
commande CATALOG ou CAT 


Commande 
CATALOG 


Buffer 
libre 
—-HIMEM-- 


Buffer 
CATALOG 
—-HIMEM-- 


Commande 
CATALOG 


Ouverture 
fichier 


Buffer 
fichier 


Buffer 
fichier 


Buffer . 
CATALOG 
--HIMEM-- 


Buffer 
libre 
--HIMEM-- 





Ce disque virtuel, normalement 
dénommé /RAM, comporte 128 
blocs (contre 280 pour une 
disquette). Le nombre de fichiers 
que peut contenir son répertoire 
principal est de 12 (contre 51). 


La figure 2 montre la 
correspondance entre les blocs du 
volume /RAM et les adresses 
physiques en mémoire auxiliaire. 


Les blocs 0 à 7 sont utilisés par 

ProDOS et ne doivent pas être 

modifiés directement : 
le bloc 2 contient le "Volume 
directory" ; 
le bloc 3 contient le "Volume 
Bit Map" ; 
le bloc 7 correspond aux 
adresses de la pile et de la page 
zéro de la mémoire auxiliaire. 
Il est donc fortement 
déconseillé de le modifier sous 
peine de graves problèmes ; 
les blocs 0,1,4,5 et 6 sont 
inaccessibles en lecture et en 
écriture. Une tentative de 
lecture de ces blocs donnera 
toujours zéro. Une tentative 
d'écriture ne les modifiera pas 
(ils resteront à zéro), ni les 
adresses en mémoire auxiliaire 
correspondant à ces blocs 
(adresses $200 à $BFF). Les 
affichages texte et graphique 
basse résolution en 80 
colonnes sont donc 
automatiquement protégés. 


Il est prévu que les futures 
versions de ProDOS utilisent 
d'autres adresses en mémoire 
auxiliaire. C'est déjà le cas pour 
les versions à partir de ProDOS 
1.1.1 pour lesquelles le dernier 
bloc ($7F) est réservé. Le nombre 
total de blocs du disque virtuel 
devient 127. 


La page graphique double 
haute-résolution 1 correspond aux 
blocs $08, SOA à 518. 
SOFT.COPIE n'utilisera donc les 
blocs du disque virtuel qu'à partir 
du numéro $19, jusqu'au numéro 
$7E inclus. 


Fonctionnement 
technique 


SOFT.COPIE va utiliser les 


caractéristiques du disque virtuel 
pour réaliser une recopie en trois 
passes. 


Pourquoi trois passes ? 
D'après les impératifs précédents, 


le volume /RAM comporte 93 
blocs disponibles. Or, une 


disquette de 140 Ko en comporte 
280, c'est-à-dire : 280 = 93 x 3 + 
k 


La solution adoptée consiste donc 
à occuper la totalité de l'espace 
virtuel disponible ainsi qu'un 
buffer de 512 octets en mémoire 


principale, soit un total de 94 
blocs utilisés 3 fois (afin de 
simplifier le programme, les blocs 
93 et 196 sont recopiés deux 
fois). 


L'avantage majeur est que 
SOFT.COPIE n'utilise alors que 
208 octets et peut donc se loger 
dans la zone tranquille en page 3 ; 
en particulier, on n'a pas besoin 
de se soucier d'avoir à le reloger 
en mémoire haute comme on 
devrait le faire pour un 
programme plus important. 


Figure 2 : Correspondance entre blocs du disque virtuel et 
numéros de page en mémoire auxiliaire 64 Ko 


Page OPT 2/4 4/5 
$00 
$10 
$20 
$30 
$40 
$50 
$60 
$70 
$80 
$90 
$AO 
$BO 
$Co 

$DO bancl 

$DO banc2 
$SEO 
$FO 


$07 
$09 
$08 
$11 
$19 
$22 
$2A 
$33 
$3B 
$44 


(0,1,:4,5,6 
$1A S$S2B 
SOA S$0OB 
$12 613 
$1B $1C 
$23 S24 
$2C S$2D 
$34 $35 
$3D $3E 
$45 $46 
$S4C $4E $S4F 
$55 °$56 ,$57 

Zone des E/S 
$S60 $61 $62 
$68 $69 S$S6A 
S70 °S71) S72 
$78 $79 $S7A 


Récapitulation 
‘SOFT.COPIE’ 


Aprés avoir saisi ce code sous moniteur, 
vous le TOME par 
BSAVE SOFT.COPIE,AS$29D,L$131 


non accessibles) 


et des 


8/9 A/B C/D 
$03 
$5E 
$oF 
#17 
$20 
$28 
$31 
$39 
$42 
$4A 


$3C 
$oc 
$14 
$1D 
$25 
$2E 
$36 
$3F 
$47 
$50 
$58 


$4D 
$0D 
$15 
$1E 
$26 
$2F 
$37 
$40 
$48 
$51 $52 $53 
$59 S$S5A $5B 
commutateurs 

$S64 $65 $66 
$6C $S6D $6E 
$74 $75 $76 
$7C $7D $7E 


$5D 
$0E 
$16 
$1F 
$27 
$30 
$38 
$41 
$49 


$63 
$ 6B 
$73 
$7B 
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Source ‘T.SOFTCOPIE’ 
Assembleur ProCODE 


JSR HOME 
RRRRRRRRRRRRR RAR RAR RAR Rh ht t th tttthtthtttathhttahhitihk 
es AGAIN LDA #$0C ‘Code BI de NO BUFFERS AVAILABLE 
LDY HIMEM 
* SOFT. CO 4.2 C B Fénart 1985 * 
A FRECORTE (c) aus ds S BNE BIERR ; Erreur si HIMEM mal ajusté 
LDA HIMEM+1 ; sinon les buffers de données 
* Créé: 15 Juillet 1985 Modifié: 14 Octobre 1985 * $ ; 
” conte rod ide diseuetten avec D Seul dOfve, ” STA BUFFER+1 : sont mis à l'adresse du buffer 
ms STA XBUFFER+1 ; temporaire de BASIC.SYSTEM 
Shah hhaahhhhahhahhhhhhhhhhhhhhthhéhhhhhhhhhhth ht STY BLOCK 5 Commence au bloc 0 
* Présentation : ; 
* Ce programme permet de recopier une disquette non er lies 
prog P P PASSE LDA  #<SOURCE +: Affiche l'instruction: 
* protégée avec un seul drive, en seulement trois passes L u 
* (contre neuf pour l'utilitaire ProDOS) He. FORPRNRE F "PERENEASINNQNN PERESNe 
à * LDA  #<DRIVPAR 
LDX  #<AUXPAR 
* 
À ÿ du _ EE - ges Frs gage É JSR TRANS sDisquette source --> /RAM 
- €, ARIMOMOEES ARE se ARE ee STY BLOCK sRestitue le n° du bloc de départ 
* comme zone tampon. 
* * 
Constantes des disques réels et virtuels des mtotr d'asrois dcAtiEe 
: ds dé dd jé #10 (6 880 si dri 2) LDA #<DESTIN  ;Affiche l'instruction: 
DA Le prés È aie pl pre É dons JSR CLAVIER] "Insérez le disque destination:" 
È ge $ . ». #3 2 oc u sé en LDA  #<AUXPAR 
odes des commandes Pro LDX  #<DRIVPAR 
RLOCR 50 s80 . at radis r JSR TRANS ;/RAM --> Disquette destination 
RD Ë Qu spectre seere un ee DEC BLOCK ;Un bloc commun entre les passes 
WRBLOCK EQU $81 Ecriture directe d'un bloc 
* * 
Variable en page zéro CPY #$BA sDébut dernière passe au bloc $BA 
BNE PASSE 
HIMEM EQU $73 :Fin de l'espace mémoire + 1 
* * 
Zone d'E/S et des commutateurs LDA #<TERMINE ; "Copie terminée" ou 
ESCAPE LDX #<COPIE ; "Copie annulée" 
cards EQU $C010 ‘Echantillonnage du clavier JSR CLAVIER ; puis test du clavier 
Sous-programmes en pages globales ProDOS et BASIC.SYSTEM BEQ AGAIN ;Recommence tjs une autre copie 
* Transfert des blocs du disque vers /RAM et vice versa * 
ERROUT EQU $BE09 ‘Affiche l'erreur (code BI en À) 
BADCARE, .:EQU des see MLI --> code BI TRANS STA LEC Lecture du disque ou de /RAM 
rs EQU  $#Bn JET ERRSN CRE TODeS STX ECR Ecriture du disque ou de /RAM 
* Sous-programmes du moniteur et de l'interpréteur BASIC 
hat fin 00 LDA #00 Poids fort toujours nul au départ 
STROUT  EQU es ‘Affiche une sn ne mr n STA BLOCK+]1 
NORMAL: 507 es Ransagn en Sn AE ’ LDY BLOCK ;Préserve le n° du bloc de départ 
TEXT EQU $F. Passage ss mode texte tota LDA  #RAM : premier bloc en /RAM 
HOME EQU $FC58 sEfface l'écran STA XBLOCK 
RDKEY EQU S$FDOC sAttend une touche, code mis en À LDX  #RAM#S5E ;Dernier bloc en /RAM 
CROUT EQU $FD8E sEnvoie un retour chariot 
ORG  $023D GROUPE JSR MLI :Lecture d'un bloc 
ME oi Etant en DFB  RDBLOCK 
SANUTO RCE LEC DA  DRIVPAR 
BCS ERREUR 
JMP DEBUT 
* L * 
Messages d'instructions JSR MLI ‘Ecriture d'un bloc 
MESSAGE El * DER. Re 
DISQUE en "Insé le di L — ne pa 
Qu PReFeR eee BCS ERREUR | 
DFB 00 | 
L . 
b SOPRÈR sa D INC BLOCK :Blocs suivants 
DESTIN ps ‘d i i a Ne ne: 
SES dE TAÈQnS INC BLOCK+1 ‘Drive sur 2 octets 
: ps NOCARRY INC XBLOCK smémoire auxiliaire sur un seul. 
COPIE ASC sis CPX XBLOCK | 
: DFE BNE GROUPE Copie par groupe de $5E blocs 
ANNULE ASC ‘annulée’ RTS 
DEA vop FEAUE decigne * Gestion des erreurs * 
DFB 00 
LA L 
UNE . es Lies. ERREUR  LDX #<IOERR 
Se 0 $ g CMP 4#527 Erreur d'E/S ? 
BEQ ERRIN 
ce d'E/S' 
ROSES os rs ne 2 LDX  #<WRIPRO 
* g CMP 4#52B Ecriture protégée ? 
DFB 00 
WRIPRO ASC ‘Disque protégé" BEQ ERRIN ;Sinon autres erreurs: 
DFE 407 “Con JSR BADCALL ;Code MLI --> code BI 
DFB 00 É g BIERR JMP  ERROUT Affichage de l'erreur et arrêt 
DS $300-* sAlignement 
ERRIN PLA ‘Calcul l'adresse de redémarrage 
DEBUT JSR TEXT ‘Un écran tout neuf SBC #50C ; (SEC inutile après l'égalité) 
JSR NORMAL PHA 
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STY 
JSR 
RTS 


BLOCK 
AFFICHE 


sRéinitialise le n° de bloc 
Affiche l'erreur correspondante 
sRetour 12 octets en arrière 


* Affichage des instructions et test du clavier = 


* CLAVIER: Message en 2 parties (X = l‘ 
* CLAVIERI: Idem mais 1° 


CLAVIERI LDX 
CLAVIER PHA 
JSR 
PLA 
JSR 


LDA 
JSR 
CMP 
BEQ 
CMP 
BNE 


Jboucle 


PLA 
TAX 
PLA 


#<DISQUE 


AFFICHEI 


AFFICHE 


KBDSTRB 
RDKEY 
#$8D 
ONYVA 
+598 
Jboucle 


$ AcC = 2°) 
partie = “Insérez le disque " 
;1° partie du message "Insérez... 
sPréserve l'adr. de la 2° partie 
‘Affiche la 1‘ partie 

sRécupère l'adresse de la 2° 
“Affiche la 2° partie (sans saut) 


;Un clavier tout neuf 
sAffiche le curseur, 
‘puis attend un retour chariot. 


Si ce n'est pas le caractère ESC 
‘on attend un autre caractère, 


ssinon on saute un retour 
sPréserve l'adresse basse 
sDépile l'adresse haute 


ONYVA 


CPX 
BNE 
RTS 


* Affichages 
* AFFICHEI: 
* AFFICHE : 


AFFICHEL JSR 


AFFICHE 


TXA 

LDY 
JSR 
RTS 


#<ESCAPE+4 
ESCAPE 





;Donne zéro en cas d'égalité 
sRevient au départ ou fin 


des messages. 
Avec saut de ligne (X = Adr.) 
Sans saut de ligne (Acc = Adr.) 


CROÛUT 


#>MESSAGE 
STROUT 


* Table des paramètres 


sEnvoie un retour chariot 


‘Poids fort identique pour tous 


de ProDOS * 


LDA  #<ANNULE 


Message 


“Annulé"“ si ESCAPE 


Suite de la page 56, fichier ‘IMPOTS 


F;X12;FCUG 

F;X13;FC0G 

C;:X14;EMAX(R[-2]C,R[-2] 
C[+1]-10520*2*(R[-5] 
C[-8]-IF(R[-103]C[-6 
]=1,2,1)));K0 

C;Y105;X4;:K39440 

C;X6;K0.25 

F;F$0R 

C;X8;K6076.5 

F;FF2G 

C;Y106;X4;K49550 

C;X6;K0.3 

F;F$0R 

C;X8;K8554 

F;FF2G 

C;X10;K"REDUCTION D'IMP 
OTS" 

F;FCOC 

F;X11;FCOC 

F;X12;FC0C 

C;Y107;X4;K59950 

C;X6;K0.35 

F;F$0R 

C;X8;K11551.5 

F;FF2G 

C;X11;K'"A" 

C;X12;/EMIN(0O.25*R[-46]C 
[-10]+0.2*(R[-46]C[- 
8]+R[-46]C[-6]+R[-46 
1C[-4]),0.25*(15000+ 
2000*(R[-103]C[-4]+R 
[-100]C[-4]+R[-99]C[ 
-4]+R[-98]C[-4])));K 
0 à 


C;Y108;X4;K69170 

C;X6;K0.4 

F;F$0R 

C;X8;K15010 

F;FF2G 

C;X11;K"B" 

C;X12;ENIN(R[-47]C[-2], 
12000+2000*(R[-104]C 
[-4]+R[-101]C[-4]+R[ 
-100]C[-4]+R[-99]C[- 
4]));Kk0 

C;Y*109;X4;K115250 

C;X6;K0.45 

F;F$0R 

C;X8;K20772.5 

F;FF2G 

C;X11;:K"C" 

C;X12;/E0.25*(NIN(R[-48] 
C,IF(R[-108]C[-4]=1, 
16000,8000)+2000*(R[ 


I | 


-105]C[-4]+R[-102]CI[ 
-4]+R[-101]C[-4]+R[- 
100]C[-4])));K0 

C;Y110;X4;K158510 

C;X6;K0.5 

F;F$0R 

C;X8;K28698 

F;FF2G 

C;XII;K°D" 

C;X12;E(MIN(R[-48]C[-10 
],4000+1000*(R[-106] 
C{-4]+R[-103]C[-4]+R 
[-102]C[-4]+R[-101]C 
[-4])))/4+MIN(R[-48] 
C[-8],7000+1500*(R[- 
106]C[-4]+R[-103]C[- 
4]+R[-102]C[-4]+R[-1 
01]C[-4]))/4;K0 

C;Y111;X4;K187490 

C;X6;K0.55 

F;F80R 

C;X8;K38072.5 

F;FF2G 

C;X11;K'E" 

C;X12;/ENIN(R[-49]C[-6], 
2000);K0 

C;Y112;X4;K213280 

C;X6;K0.6 

F;F#$#0R 

C;X8;K48736.5 

F;FF2G 

C;X11;K"r" 

C;X12;/ENIN(R[-50]C[-4]/ 
4,IF(R[-111]C[-4]=1, 
14000,7000));K0 

C;Y113;X4;K241740 

C;X6;K0.65 

F;F$0R 

C;X8;K60823.5 

F;FF2G 

C;X11;R"@" 

C;X12;E(SUM(R[-50]C[-10 
J:R[-50]C[-6]))/4;K0 

C;Y114;X11;K"H" 

C;X12;/E(MNIN((R[-51]C[-4 
]+0.75*(R[-51]C[-2]) 
),IF(R(-113]C[-4]=1, 
400000,200000)))*0.0 
5;K0 

C;Y*115;X11;K"A”" 

C;X12;ESUMN(R[(-1]C:R[-8] 
C);K0 

C;Y116;X9;K'"APRES REDUC 
TION LIGNE B" 

F;Frcoc 


DRIVPAR DFB $03 :Nombre de paramètres 

DFB UNITNB :UNIT NUMBER du lecteur de disque 
BUFFER DA $0000 ‘Adresse du buffer de données 
BLOCK DA $0000 ;Numéro du bloc 
AUXPAR  DFB $03 Nombre de paramètres 

DFB $B0O ;UNIT NUMBER du disque virtuel 
XBUFFER DA $0000 ‘Adresse du buffer de données 
XBLOCK DA $0000 :Numéro du bloc 

Ds $3D0-* Protège les vecteur du DOS 
F;X10;Fc0C F;FCOC 
F;X11;FCO0C F;X10;FCO0C 
F;X12;FCO0C F;X11;FCO0C 
F;X13;FC0C F;X12;FC0C 
C;X14;ER[-12]C-R[-1]C[- F;X13;FCc0C 

2];K0 C;X14;EIF(R[-1]C<22730, 
C;Y117;X9;K"DECOTE LIGN R[-1]C*0.08,0)+IF(AN 
E D" D(R[-1]C>22729,R[-1] 

F;FCOC C<28411),4*(1420-R[- 
F;X10;FCO0C 1]C*0.0425),0)+IF(AN 
F;X11;FC0C D(R[-1]C>28410,R[-1] 
F;X12;FC0C C<34091),R[-1]C*0.03 
F;X13;FCO0C ,0);K0 


C;X14;/EMIN(IF(AND(R[-1] 
C<4300,R[-1]C>=1700, 
R[-18]C[-8]=1),4300- 
R{-1]C,0)+IF(AND(R[- 
1]C<1700,R[-18]C[-8] 
=1.5),1700-R[-1]C,0) 
:R[-1]C);K0 

C;Y118;X9;K"IMPOTS SUR 
+VALUES LIGNE F”" 

F;FCcOC 

F;X10;FC0C 

F;X11;FrCc0C 

F;X12;FC0C 

F;X13;FC0C 

C;X14;/E(R[-79]C[-10]-RI 
-78]C[-10])*0.11+(RI[ 
-79]C[-8]-R[-78]C[-8 
J+R[-80]C[-6])*0.16+ 

(R[-79]C[-6]-R[-78]C 
[-6])*0.26+R[-81]C[- 
6]*0.51;K0 

C;Y119;X9;K'"LIGNE K" 

F;FCcOcC 


F;X10;FrC0C 

F;X1i1;FCOC 

F;X12;FC0C 

F;X13;FCO0C 

C;X14;/ER[-57]C[-4]+R[-5 
5]C[-4];K0 

C;Y120;X9;K"APRES CORRE 
CTION LIGNE G”" 

F;FCOC 

F;X10;FCO0C 

F;X11;FCO0C 

F;X12;FrCc0C 

F;X13;FC0C 

C;X14;/EIF((R[-4]C-R[-3] 
C+R[-2]C+R[-1]C)>339 
,:R[-4]C-R[-3]C+R[-2] 
C+R[-1]C,0);K0 

C;Y121;X9;K"MINORATION 
1986" 


C;Y122;X9;K'"APRES MINOR 
ATION 1986" 

F;FrCcOcC 

F;X10;FC0C 

F;X11;FCO0C 

F;X12;FC0C 

F;X13;FCO0C 

C;X14;/ER[-2]C-R[-1]C;K0 

C;Y123;X9;K"COMPLEMENTA 
IRE 1%" 

F;FCOC 

F;X10;FrCcO0cC 

F;X11;Frc0cC 

F;X12;FrCc0C 

r;X13;FrCc0c 

C;X14;/EIF(R[-3]C>339,R[ 
-54]C*0.01,0);K0 

C;Y124;X9;K"CREDITS AVO 
IRS FISCAUX" 

F;FrcOcC 

F;X10;FCO0C 

F;X11;FC0C 

F;X12;FCO0C 

F;X13;FrC0C 

C;X14;:ER[-106]C[-2];K0 

C;Y125;X9;K"IMPOT DU" 

F;FCOC 

F;X10;FCcO0C 

F;X11;FCO0C 

F;X12;FC0C 

Fr;X13;rCc0c 

C;X14;/ER[-3]C+R[-2]C-R[ 
-1]C;K0 

W;N1;A70 12 

E 


Note : deux ‘retours chariots” sont 
indispensables à la fin de ce 
fichier. 
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Retour dans le Basic 
Halte aux Scrolls ! 


ans les lignes qui vont 
suivre, nous allons 
présenter deux utilitaires 
utilisables à l'aide de 
l'instruction ampersand (&) du 
langage Basic Applesoft. 
La fécondité de cette instruction 
n'est plus à prouver. De jour en 
jour, de numéro de Pom's en 
numéro de Pom's, elle enrichit 
l'étendue des possibilités du Basic 
de nos Apple par l'accès facile à 
des programmes rédigés en 
langage machine. 
Les deux utilitaires présentés ici 
regroupent des programmes 
permettant d'accomplir des tâches 
fort différentes et très utiles dans 
la pratique. 


Le premier permet d'activer la 
touche ESC et ainsi de 
programmer la possibilité de 
revenir en arrière lors du 
déroulement séquentiel d'un 
programme écrit en Basic 
Applesoft. 


Le second permet d'interrompre 
en bas de page le défilement 
-continu de l'affichage à l'écran. 


Pour utiliser cette bibliothèque 
ampersand, vous devez soit la 
charger par un BRUN, soit lancer 
l'instruction CALL 37555 lorsque 
la bibliothèque est déjà en 
mémoire. Celle-ci a été implantée 
dans les adresses $92B3... 
$949D. Toutefois, le programme 
étant relogeable, vous pouvez le 
déplacer facilement en utilisant le 
programme RELOCATE présenté 
par J.F. DUVIVIER dans le n°1 
de Pom's. 


Faites marche 
arrière dans un 
programme Basic 


Utiliseriez vous une voiture sans 
marche arrière pour vous déplacer 
dans le dédale des rues d'une 





Pom's n° 23 


agglomération ? Non. Et pourtant, 
vous avez sûrement déjà utilisé ou 
même rédigé des programmes 
sans possibilité de revenir en 
arrière après un choix 
malencontreux. Ce n'est peut être 
pas tout-à-fait la même chose mais 
tout aussi fâcheux. 

Nous vous proposons dans les 
lignes qui vont suivre, un moyen 
simple d'inclure dans vos 
programmes Basic les facilités du 
retour arrière programmé par la 
touche ESC. Cette touche sera 
programmable lors de chaque 
question posée à l'utilisateur de 
votre programme. 

Quatre commandes utilisant 
l'ampersand (&) sont nécessaires 
pour accomplir cela. Elles gèrent 
une pile d'adresses de trois 
niveaux (implantées aux adresses 
$F9...$FE) permettant ainsi de 
faire un retour à trois étapes 
antérieures. Les deux premières 
permettent de pointer les 
instructions où l'on accepte de 
revenir en cas de demande, la 
troisième déclenche le retour 
arrière et la dernière interdit tout 
retour à une étape qui la précède. 


&STORE 


Cette commande permet de 
pointer une instruction Basic où 
l'on souhaite éventuellement 
revenir en cas de besoin. Comme 
le faisait le "Petit Pousset" avec 
des cailloux, elle laisse une trace 
du passage en certains points du 
programme dans l'intention de 
pouvoir y revenir. 

Cette commande mémorise en 
$CE.$CF le numéro de 
l'instruction d'où elle est lancée. 
Vous pouvez la placer n'importe 
où dans votre programme (sauf 
dans un sous programme ou dans 
une boucle). Elle doit 


obligatoirement apparaître sur la 
ligne d'instructions où l'on désire 
revenir en cas de demande 
explicite. 


Gilles Caraux 


La place privilégiée de &STORE 
se situe en général au début des 
instructions définissant un menu. 
En effet, c'est par le choix dans 
un menu que l'on débute 
normalement un traitement et c'est 
donc là en général qu'il est 
souhaitable de pouvoir revenir en 
cas de nécessité. 

Cette commande prend soin de 
remettre à zéro la pile du 
processeur gérée par l'interpréteur 
Basic (adresses $100 à $1FF). 
Ceci permet de quitter une boucle 
ou un sous programme en ayant 
fait le ménage. Ceci interdit 
également, ce qui est normal, de 
revenir dans un sous-programme 
sans repasser par une instruction 
GOSUB et impose aussi de 
reprendre une boucle par 
l'instruction FOR. Vous ne 
pouvez donc pas programmer un 
retour à l'intérieur d'un sous- 
programme ou d'une boucle. 


&VAL 


Cette instruction est la deuxième 
étape de mémorisation d'un 
numéro d'instruction. Elle valide 
la demande exprimée par 
&STORE. 

En effet &STORE n'a pas placé le 
numéro de l'instruction qu'elle 
pointe dans la pile contenant le 
numéro des instructions où l'on 
est susceptible de revenir. 

Ceci était prématuré. Si, au début 
d'un menu, &STORE avait 
directement modifié la pile des 
numéros d'instructions ($F9... 
$FE), en appuyant sur "ESC" à la 
fin de ce menu, on retrouverait 
celui-ci et non celui qui le 
précède. 

Sa place naturelle est située 
directement à la suite d'une 
instruction GET ou INPUT 
lorsque la réponse est autre que 
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"EC". 


Notons que l'on peut lancer 
plusieurs fois la commande 
&VAL après une commande 
&STORE. Seule la première sera 
prise en compte pour la 
modification de la pile. 


&RETURN 


L'exécution de cette commande 
vous fera revenir à la dernière 
instruction mémorisée par 
&STORE et validée par &VAL. 
On devra donc la placer à la suite 
d'un GET ou d'un INPUT après 
avoir testé si la réponse est 
CHR$(27) (touche "ESC"'). 


&CLEAR 


Cette commande remet à zéro la 
pile de travail définie en 
$F9...FE. 

On l'utilisera pour interdire tout 
rétour à une instruction précédant 
celle où elle apparaît. Ceci est 
parfois nécessaire quand pour des 
raisons de logique propre au 


Programme ‘BIBLI.DEMO' 


10 HIMEM: 37555:N% = 
20 D$ = CHRS (13) + 
(7):ESC$ = CHRS$S (27) 


30 PRINT D$"BRUNBIBLI.AMPER" 


0 :NMS = "" 
CHR$ (4):ERS$ = 


programme, on ne peut retrouver 
par un retour arrière une situation 
propice à la reprise du traitement. 


Halte aux 
SCROLLSs 


Le SCROLL est une sous- 
programme du système qui 
déclenche le décalage vers le haut 
des lignes de l'écran. Elle est 
utilisée pour dégager la dernière 
ligne du bas quand l'affichage 
nécessite plus de 24 lignes. 

Ainsi, quand on édite un grand 
nombre de lignes, on provoque 
un défilement ininterrompu à 
l'écran. 

La seule possibilité qui nous est 
donnée pour s'attarder sur 
l'affichage est d'utiliser CTL-S. 
Ceci est peu convivial et peu 
pratique. 

Le programme en langage 
machine qui vous est proposé ici 
remédie à ce problème. Il permet 
une édition progressive écran par 
écran et non plus en continu. Il 
vient se substituer à la routine de 
sortie de caractères dont l'adresse 


R I = 


1 TO N: GOSUB 220: NEXT : 


est mémorisée en $36.$37. 


&SCROLL DEL 


A partir du moment où cette 
commande est donnée, l'affichage 
se fait page par page. Une fois 
l'écran rempli un message 
demande d'appuyer sur une 
touche pour continuer 
l'impression. 

Pour revenir au mode d'affichage 
normal (ce qui est nécessaire 
quand on utilise les commandes 
DOS d'écriture sur disquette), 
vous devez lancer successivement 
les ordres : PR#0 : CALL 1002 
La commande &SCROLL DEL 
est compatible avec les 
commandes de retour arrière 
présentées plus haut. Lors de la 
réponse au message apparaissant 
en bas de l'écran vous exécutez 
automatiquement &RETURN si 
vous appuyez sur la touche 
"ESC", sinon vous validez par 
&VAL la dernière demande de 
retour faite par &STORE. à 


GOSUB 


210: VTAB 3: RETURN 


110 & VAL : 


CHRS$ 


€ 
HTAB 6: PRINT 
TROUVANT ": 
ELLEMENT SUR LE DISQUE NUMERO l'": 
B 10: NORMAL 


STORE :N = 5: GOSUB 100: 
"LISTES DES FICHIERS SE 
HTAB 3: PRINT "ACTU 
VTA 


PRINT : 


40 & STORE :N = 3: GOSUB 100: HTAB 7: PR 
INT "PROGRAMMES DE DEMONSTRATION": VTA 120 & RWTS: IF N#$ < > 0 THEN GOTO 140 
B 6: HTAB 17: PRINT "MENU": NORMAL 130 NORMAL : HOME : TEXT : VTAB (15): PRI 
50 VTAB 11: PRINT "l - ECRIRE LES 300 PRE NT "AUCUN FICHIER N'EXISTE SUR LE DISQ 
MIERS NOMBRES.": VTAB 14: PRINT "2 - A UE !": GOTO 60 
FFICHER LE CATALOG DE LA DISQUETTE. ": 140 & SCROLL DEL : FOR I = 1 TO N$: & RE 
VTAB 17: PRINT "3 - LISTER LES INSTRUC AD NM$ > I: PRINT I;" - "NMS: PRINT : 
TIONS DU PROGRAMME": VTAB 20: PRINT "4 NEXT I: GOTO 60 
- QUITER LE PROGRAMME.": GOSUB 170: O 150 VTAB 24: HTAB 1: INVERSE : PRINT " P 
N O GOTO 70,110, 80, 90 OUR CONTINUER TAPER SUR UNE TOUCHE. ";: 
60 GOSUB 150: & VAL : PRINT DS"PR#0": CA GET O$: NORMAL : IF O$ = ESC$ THEN € 
LL 1002: TEXT : GOTO 40 RETURN : PRINT ER$: HTAB 1: RETURN 
70 & VAL : & STORE :N = 3: GOSUB 100: H 160 & VAL : HTAB l: RETURN 
TAB 6: PRINT "LISTES DES 300 PREMIERS 170 VTAB 24: HTAB 6: INVERSE : PRINT "REP 
NOMBRES": VTAB 10: NORMAL : & SCROLL D ONDRE";: NORMAL : PRINT “ 12... 4 
EL : FOR I = 1 TO 300: PRINT I;" ";: ";: HTAB 28: GET O$: IF O$ = ESC$ THEN 
NEXT : GOTO 60 & RETURN 
80 & VAL : & STORE :N = 3: GOSUB 100: H 180 O = VAL (0$): IFO>O0ANDO< =47T 
TAB 8: PRINT "LISTING DU PROGRAMME BAS HEN  HTAB l: RETURN 
LIST : GOTO 60 200 HTAB 31: PRINT "ERREUR";: GOTO 170 
90 N = 3: GOSUB 100: HTAB 15: PRINT "AU RE 210 PRINT "+";: FOR I = 1 TO 38: PRINT "- 
VOIR !": VTAB 23: NORMAL : END ":: NEXT I: PRINT "+";: RETURN 
100 TEXT : HOME : INVERSE : GOSUB 210: FO 220 PRINT "I"; SPC( 38);"I";: RETURN 
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Source 


‘BIBLI.TEXT’ 
nl * 
É:] 
3 ADDON EQU S$D9 
4 BELL EOU $FF3A 
5 CONINT EQU $E6FB 
6 COUTI1 EQU $FDFO 
7 ERROR  EQU S$D412 
8 FNDLIN EQU S$D61A 
9 FRMNUM EQU $DD67 
10 LAB1 EQU  $DEC9 
11 LAB2 EQU $A851 
12 LAB3 EQU $D941 
13 RDKEY EQU S$FDOC 
14 SCROLL EQU $FC70 
15 SETTXT EQOU $FB39 
pi 16 VP EQU $FC1A 
P YA ORG $92B3 
18 
19 
20 * CHARGEMENT DE AMPERV 
21 LDX #$02 
22 BO LDA ADRO,X 
23 STA $03F5,X 
24 DEX 
25 BPL BO 


26 * CHARGEMENT DE 
L'ADRESSE DE LA 


TABLE IOB 
27 * POUR RWTS 
28 LDX #$01 
29 B1 LDA ADR1+1,X 
30 STA ADR3,X 
31 DEX 
32 BPL Bl 


33 * CHARGEMENT DE 
L'ADRESSE DE LA 


TABLE DES 
34 * CARACTERISTIQUES 
DU LECTEUR 
35 LDX #$00 
36 LDA ADR2+1,X 
37 STA ADR4+1,X 
38 INX 
39 LDA ADR2+1,X 
40 INX 
41 STA ADR4+1,X 
42 JMP  ADRS 
43 ADRO JMP  ADR6 
44 ADRI1 JUMP  ADR7 
45 ADR2 JUMP  ADR8 
46 * 
47 * DEBUT DE 'é' 
48 * 


49 * INTERPRETATION 
DES COMMANDES 


50 ADR6 LDX #$00 
51 STX $19 
52 B3 LDY #$00 
53 B2 LDA TCI,X 

. 54 BEQ ADR9 
59 CMP  #$FF 
56 BEQ ADR10 
5? CMP  ($B8),Y 
58 BNE ADRI11 
59 INY 
60 INX 
61 BNE B2 
62 ADR10 JMP  LAB1 
63 ADR11 INX 
64 LDA TCI,Xx 
65 BNE  ADR11 
66 INX 
67 INC $19 
68 BNE B3 
69 ADR9 JSR ADDON 
70 ASL $19 
71 ASL $19 
72 LDX $19 
73 LDA ADR12+2,Xx 
74 PHA 
75 LDA ADR12+1,X 
76 PHA 


77 
78 


79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 


90 
91 
92 
93 
94 
95 
36 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 


107 
108 
109 
110 
111 
212 


113 
114 
145 
116 
127 
118 
119 
120 
121 
122 
223 
124 
125 


126 
127 
128 
129 
130 
231 


132 
133 
134 
195 
136 
137 
138 
139 


140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
199 


RTS 

* TABLE DES 

COMMANDES DE ‘'é' 

TC1 HEX A800 
HEX E500 
HEX B100 
HEX BDO00 
ASC  'SCROLL' 


HEX 874E4D24 
HEX CFOOFF 
* ADRESSES DES 
COMMANDES 
ADR12 JSR 
NOP 
JSR ADR14 
NOP 
JSR ADR15 
NOP 
JSR ADR16 
NOP 
JSR ADR17 
NOP 
JSR ADR18 
NOP 
ADR13 JSR 
* 


ADR13+2 


ADR1 9+2 
* DEBUT DE &STORE 
* 


* CHARGEMENT DE 
"CE.CF" 


LDA $75 
STA $CE 
LDA $76 
STA $CF 
* MISE À ZERO 
DE LA PILE 
PLA 
TAY 
PLA 
LDX #$FF 
TXS 
PHA 
TYA 
PHA 
ADRI14 RTS 
* 


* DEBUT DE &VAL 
* 


X CE.CF = 0 ? 
SI OUI "RTS" 
ADR30 LDA $CE 


ADC $CF 
BNE ADR20 


* CE.CF = F9.FA ? 
SI OUI "RTS" 

ADR20 LDA $CE 
CMP $F9 
BNE ADR21 
LDA $CF 
CMP  $FA 
BNE  ADR21 


* EMPILEMENT DE 
CE.CF EN F9.FA 
ADR21 LDX #$03 
B4 LDA $F9,X 
STA $FB,X 
DEX 


* MISE À ZERO DE CE.CF 
LDA #$00 
STA $CE 
STA $CF 
ADR15 RTS 
* 


* DEBUT DE &RETURN 


156 
157 


158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
177 
172 
173 
174 
175 


176 
177 
178 
179 
180 
181 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192 
193 
194 


195 
196 
197 
198 
199 
200 
201 
202 
203 
204 


205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 


219 
220 
221 
222 
223 
224 
225 
226 
227 


228 
229 
230 
231 
232 


233 


* 


N'FASE9 


SI OUI 


B6 


= 0? 
WRTS" 

LDA $F9 
CLIC 

ADC $FA 
BNE ADR22 
RTS 


* CHARGEMENT LINNUM 


ADR22 


LDA S$Fr9 
STA $50 
LDA $FA 
STA $51 


* DEPILEMENT DE F9.FA 


B5 


LDX #$00 
LDA $FB,X 
STA $F9,X 
INX 

CPX #$04 
BCC B5 


* SI LINNUM=CE.CF 
REPRENDRE &RETURN 


ADR44 


LDA $CE 
CMP $50 
BNE  ADR44 
LDA $CF 
CMP $51 
BEQ B6 
LDA #$00 
STA $FD 
STA $FE 


* REINITIALISATION 


* GO TO 


LDA #$FF 
STA $32 
LDA #$F0 
STA $36 
LDA #$FD 
STA $37 
USR SETTXT 
JSR LAB2 
LINNUM 


SINON ERREUR 


ADR23 


ADR16 
* 


JSR FNDLIN 
BCC  ADR23 
JMP  LAB3 
LDX #$5A 
JMP  ERROR 


* DEBUT DE &CLEAR 
* 


* MISE À ZERO DE 


LA PILE F9... 
ADR5  LDA #$00 
LDX #$05 
B7 STA $F9,X 
DEX 
BPL B7 
*MISE À ZERO DE CE.CF 
STA $CE 
STA $CF 
ADR17 RTS 
* 
* DEBUT DE &SCROLL DEL 
* 


* CHARGEMENT DE CSW: 
* ADRESSE DE LA 

ROUTINE DE SORTIE 
* DE CARACTERES. 


ADR24 


LDA  ADR24+1 

STA $36 

LDA ADR24+2 

STA $37 

JSR LAB2 

RTS 

JSR ADR25 | 


* ROUTINE DE SORTIE 
DE CARACTERES. 

* SAUVEGARDE .DES 
REGISTRES: X,Y ET À 


ADR25 


STX $07 
STY $08 
PHA 


* SI POSITION DU 
CURSEUR < 23 


LDA $25 





Pom's n° 23 


63 





234 
235 
236 


237 
238 
239 


240 
241 


242 
243 
244 
245 
246 
247 
248 
249 
250 


251 
252 
253 
254 
255 
256 
257 


258 
259 
260 
261 
262 


263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 


277 
278 
279 
280 
281 
282 
283 


284 
285 
286 
287 
288 
289 
290 
291 
292 


293 
294 
295 
296 
297 
298 


299 


300 
301 
302 


CMP  #$16 
BEQ ADR26 
* ALORS: 
JMP FDFO (COUT1) 
B8 PLA 
JMP  COUT1 
* SINON: SI ACCUMULATEUR 
A<>RETURN OU 
* POSITION HORIZONTALE 
DU CURSEUR < 39 
* ALORS: 
JMP FDFO 
ADR26  PLA 
PHA 
CMP  #$8D 
BEQO ADR27 
LDA $24 
CMP #$27 
BCC B8 
* SINON: 
* IMPRIMER LE MESSAGE 
EN BAS DE L'ECRAN. 
ADR27 LDY #$00 
B9 LDA CA,Y 
STA $07D0,Y 
INY 
CPY #$27 
BNE B39 
* ENTREE D'UN 
CARACTERE AU CLAVIER 
JSR RDKEY 
CMP #59B 
BNE ADR28 
* SI "ESC" 
* ALORS: CONTROLE DE 
F9.FA PUIS &RETURN 
LDA $F9 


(COUT1) 


ADC $FA 
BEQ ADR29 


ADR29 JSR 
* SINON: 

EFFACER LE MESSAGE. 
ADR28 LDY #$00 
LDA #$A0 

B10 STA $07D0,Y 


CPY #$27 
BNE B10 
* REMONTER LE TEXTE 
DE 16 LIGNES. 
LDY #$00 
B11 STY $06 
JSR SCROLL 
JSR VP 
LDY $06 


CPY #$0F 
BNE B11 
* FAIRE &VAL PUIS 
IMPRIMER LE 
CARACTERE. 
JSR ADR30 


$07 
$08 
COUT1 


* MESSAGE EN 
MODE INVERSE: 

* "POUR CONTINUER 
TAPER SUR UNE 
TOUCHE." 

CH HEX 2020100F1 
51220030F0E1409 

HEX 0E1505122 
0140110051220 

HEX 131512201 
50E0520140F1503 


303 


304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
5179 
376 
TT 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 


HEX 08052E202 


0A0A0ACA0AO 
ADR18 BRK 
LDA 
STA 
LDA 
STA 
LDX 
B12 INX 
DEC 
INC 
TXA 
PHA 
JSR 
PLA 
TAX 
CPX 
BNE 
CLC 
BCC 
ADR4 LDY 
LDA 
JSR 
CLD 
RTS 
ADR8 ORA 
ORA 
ADR31 ORA 
ADR3 CMP 
ADR32 HEX 
BRK 
BRK 
ORA 
INC 
ADR7 BRK 
ORA 
CLD 
ADR33 LDA 
STA 
LDA 
STA 
LDA 
STA 
ADR43 LDA 


B14 LDA 


B13 LDY 


ADR35 INX 


ADR37 CLC 


ADR34 LDY 


ADR36 INC 


B16 LDA 


#$10 
ADR31+1 
#$1F 
ADR32 
#$00 


ADR31+1 
ADR32 


ADR4 


#$10 
B12 


ADR33 
#$C8 
#$94 
$03D9 


($60, X) 
($00, X) 
($00),Y 
$0094,Y 
2F 


($00, X) 
$0160,xX 


($EF, X) 


#$500 
$1D 
#530 
$lE 
#$00 
$18 
#$20 
$1A 
#50B 
$19 
#$00 
#500 
($19),Y 
#$00 
ADR34 
#$FF 
ADR35 
#$02 
($19),Y 

#$00 
ADR36 


#507 
ADR37 


$19 
#$23 
$19 
B13 


$1A 
#$01 
$1A 

B14 
#$02 
#$00 
($69),Y 


$18 
(569),Y 


$18 
$19 
$1B 
$1A 
$1c 


ADR38 
#50B 


388 

389 

390 B15 
391 

392 

393 

394 

395 

396 

397 

398 

399 

400 ADR38 
401 

402 

403 

404 

405 

406 

407 

408 ADR40 
409 

410 

411 

412 

413 ADR45 
414 B17 
415 

416 

417 

418 

419 

420 

421 ADR41 
422 

423 

424 

425 

426 

427 ADR39 
428 

429 

430 

431 

432 

433 

434 

435 

436 B18 
437 

438 

439 

440 

441 

442 ADR42 
443 

444 

445 

446 

447 

448 

449 

450 B19 
451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 ADR19 
467 

468 

469 

470 

471 

472 

473 


STA 
LDX 
LDY 
LDA 
CMP 
BEQ 
CMP 
BEQ 
LDY 
LDA 
CMP 
BCS 
INX 
CPX 
BEQ 
CEC 
LDA 
ADC 
STA 
BCC 
CLC 
LDA 
ADC 
STA 
BCC 
LDY 
LDA 
CMP 
BCC 
BNE 
INY 
CPY 
BNE 
LDA 
STA 
LDA 
STA 
CLC 
BCC 
LDY 
LDA 
CLC 
ADC 
STA 
INY 
LDA 
STA 
LDY 
LDA 
CMP 
BNE 
DEY 
CPY 
BNE 
TYA 
TAX 
SEC 
SBC 
LDY 
STA 
TXA 
TAY 
LDA 
AND 
STA 
DEY 
CPY 
BNE 
CLC 
LDA 
ADC 
STA 
ZLDA 
ADC 
STA 
LDY 
LDA 
STA 
JMP 
JSR 
JSR 
CLC 
LDA 
ADC 
STA 
LDA 





$19 
#500 
#$00 
($19),Y 
#$00 
ADR39 
#$FF 
ADR38 
#$02 
($19),Y 
#$00 
ADR45 


#$07 
ADR40 


$19 
#$523 
$19 
B15 


$1A 
#$01 
$1A 
B16 
#$03 
($19),Y 
($1B),Y 
ADR41 
ADR38 


#$20 
B17 
$19 
$1B 
$1A 
$1C 


ADR38 
#$01 
$1B 


#$03 
($1D),Y 


$1C 
($1D),Y 
#$20 
($1B),Y 
#$A0 
ADR42 


#$503 
B18 


#$02 
#$00 
($1D),Y 


($1B),Y 
#$7F 
($1B),Y 


#$02 
B19 


$1D 
#$03 
$1D 
$1E 
#$00 
$1E 
#$00 
#$FF 
($1B),Y 
ADR43 
FRMNUM 
CONINT 


$69 
#$09 
$19 
$S6A 





64 


"A 


Pom's n° 23 





A 










































474 ADC #$00 
475 STA SIA 

476 LDA #$FD 9340- 20 91 93 EA 20 DE 93 EA 94A0- 8D CD 94 A9 1F 8D D1 94 
ii _. EL 9348- 20 EC 93 EA 20 9D 94 EA 94A8- A2 00 E8 CE CD 94 EE D1 
479 STA $1C 9350- 20 C8 95 AS 75 85 CE AS 94B0- 94 8A 48 20 BF 94 68 AA 
480 B20 CLC 9358- 76 85 CF 68 A8 68 A2 FF 94B8- EO 10 DO EE 18 90 IE AO 
481 LDA $1B 9360- 9A 48 98 48 60 A5 CE 18 94C0- C8 A9 94 20 D9 C3 D8 60 
4 de. 9368- 65 CF DO 01 60 A5 CE C5 94C8- 01 60 01 00 11 00 D9 94 
484 LDA $1C 9370- F9 DO 07 A5 CF C5 FA DO 94D0- 00 2F 00 00 01 00 FE 60 
485 ADC #$00 9378- 01 60 A2 03 B5 F9 95 FB 94D8- 01 00 01 EF D8 A9 00 85 
ee nue $1C 9380- CA 10 F9 A5 CE 85 F9 A5 94E0- 1D A9 30 85 lE A9 00 85 
488 BNE B20 9388- CF 85 FA A9 00 85 CE 85 94E8- 18 A9 20 85 1A A9 O0B 85 
489 LDY #$03 9390- CF 60 A5 F9 18 65 FA DO 94F0- 19 A2 00 AO 00 B1 19 C9 
. B21 _. at 9398- 01 60 A5 F9 85 50 A5 FA 94F8- 00 FO 23 C9 FF FO 08 AO 
492 STA (819). Y 93A0- 85 51 A2 00 B5 FB 95 F9 9500- 02 B1l 19 C9 00 BO 23 E8 
493 CPY #$00 93A8- E8 EO 04 90 F7 A5 CE C5 9508- EO 07 FO 09 18 A5 19 69 
494 BNE B21 93B0- 50 DO 06 A5 CF C5 51 FO 9510- 23 85 19 90 DE 18 A5 lA 
ras Re 93B8- D9 A9 00 85 FD 85 FE A9 9518- 69 01 85 1A 90 CF AO 02 
93C0- FF 85 32 A9 FO 85 36 A9 9520- A9 00 91 69 C8 A5 18 91 
£ = ä 93C8- FD 85 37 20 39 FB 20 51 9528- 69 60 E6 18 A5 19 85 1B 
Récapitulation 93D0- A8 20 1A D6 90 03 4C 41 9530- A5 1A 85 1C 18 90 1A A9 
n 3 93D8- D9 A2 5A 4C 12 D4 60 A9 9538- 0B 85 19 A2 00 AO 00 B1 
BIBLI.AMPER 93E0- 00 A2 05 95 F9 CA 10 FB 9540- 19 C9 00 FO 3D C9 FF FO 
93E8- 85 CE 85 CF 60 AD FC 93 9548- 08 AO 02 Bl 19 C9 00 BO 
Après avoir saisi ce code sous 93F0- 85 36 AD FD 93 85 37 20 9550- 17 E8 EO 07 FO 09 18 A5 
moniteur, vous le sauvegarderez par 93F8- 51 À8 60 20 FE 93 86 07 9558- 19 69 23 85 19 90 DE 18 
BSAVE BIBLI. AMPER,A$92B3,L$34D 3400- 84 08 48 AS 25 C9 16 FO 9560- A5 1A 69 01 85 1A 90 CF 
9408- 04 68 4C FO FD 68 48 C9 9568- A0 03 B1l 19 D1 1B 90 07 
92B3- A2 02 BD DC 92 9410- 8D FO 06 A5 24 C9 27 90 9570- DO DF C8 CO 20 DO F3 A5 
92B8- 9D F5 03 CA 10 F7? A2 01 9418- FO AO 00 B9 70 94 99 DO 9578- 19 85 1B A5 LA 85 1C 18 
92C0- BD EO 92 9D CE 94 CA 10 9420- 07 C8 CO 27 DO F5 20 OC 9580- 90 CF AO 01 A5 1B 18 69 
92C8- F7 A2 00 BD E3 92 9D CO 9428- FD C9 9B DO 1B A5 F9 18 9588- 03 91 1D C8 A5 1C 91 1D 
92D0- 94 E8 BD E3 92 E8 9D CO 9430- 65 FA FO 11 68 85 06 A9 9590- AO 20 B1l 1B C9 AO DO 05 
92D8- 94 4C DF 93 4C E5 92 4C 9438- BD 85 36 A9 9E 85 37 20 9598- 88 CO 03 DO F5 98 AA 38 
92E0- D9 94 4C C8 94 A2 00 86 9440- 51 A8 4C 92 93 20 3A FF 95A0- E9 02 A0 00 91 1D 8A A8 
92E8- 19 AO 00 BD 1C 93 FO 1A 9448- AO 00 A9 AO 99 DO O7 C8 95A8- Bl 1B 29 7F 91 1B 88 CO 
92F0- C9 FF FO 08 D1 B8 DO 07 9450- CO 27 DO F8 AO 00 84 06 95B0- 02 DO F5 18 A5 1D 69 03 
92F8- C8 E8 DO EF 4C C9 DE E8 9458- 20 70 FC 20 IA FC A4 06 95B8- 85 1D AS 1E 69 00 85 1E 
9300- BD 1C 93 DO FA E8 E6 19 9460- C8 CO OF DO F1 20 65 93 95C0- AO 00 A9 FF 91 1B 4C E9 
9308- DO DF 20 98 D9 06 19 06 9468- 68 A6 07 A4 08 4C FO FD 95C8- 94 20 67 DD 20 FB E6 18 
9310- 19 A6 19 BD 3A 93 48 BD 9470- 20 20 10 OF 15 12 20 03 95D0- A5 69 69 09 85 19 A5 6A 
9318- 39 93 48 60 A8 00 E5 00 9478- OF 0E 14 09 OE 15 05 12 95D8- 69 00 85 1A A9 FD 85 1B 
9320- B1 00 BD 00 53 43 52 4F 9480- 20 14 01 10 05 12 20 13 95E0- A9 2F 85 1C 18 A5 1B 69 
9328- 4C 4C 85 00 52 57 54 53 9488- 15 12 20 15 0E 05 20 14 95E8- 03 85 iB AS 1C 69 00 85 
9330- 00 87 4E 4D 24 CF 00 FF 9490- OF 15 03 08 05 2E 20 20 95F0- 1C CA DO FO AO 03 88 B1 
9338- 20 52 93 EA 20 64 93 EA 9498- AO AO AO AO AO 00 A9 10 95F8- 1B 91 19 CO 00 DO F7 60 


Pom's vous propose 


"Dominos” 
Apple J[+, //e, //c 


Thierry Haurie 


Il est inutile de présenté le jeu de 
dominos; celui-ci bénéficie d'un 
graphisme très soigné (en couleur si 
vous disposez d'une carte "Chat 
Mauve") et les messages transmis 

: par le programme sont, au choix, en 
re = == Français, en Italien, en Allemand ou 


CS SE CE SR en Anglais. 


a 80.00 F TTC franco 
ER . Bon de commande page 74 


Lee OFNOS Al 
SR 
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Patches au DOS 3.35 


Les petites améliorations au DOS 
3.3 proposées ici sont les 
suivantes : 


+ obtention du CATALOG 
simplement par le slash (/). Nous 
devons être nombreux à frapper 
CATALOF ou à oublier des lettres 
en voulant taper trop vite. 


+ lancement des programmes 
Applesoft, Binaires ou fichiers 
Exec par l'unique commande ‘-’. 
Les fichiers INTEGER ne 
peuvent plus être utilisés car les 
patches occupent les 
emplacements de FP et INT. 


*_ recherche du fichier désiré sur 
les deux lecteurs sans avoir à 
spécifier D1 ou D2 chaque fois 
qu'il est nécessaire. Bien-sûr, si 
le fichier n'existe sur aucun des 
deux lecteurs, le message FILE 
NOT FOUND apparaîtra comme 
d'habitude. En cas de VOLUME 
MISMATCH ou de 1/0 ERROR, 
le patch cherchera également sur 
l'autre lecteur. 


Pour bénéficier de ces nouvelles 
commandes à chaque fois que 
vous booterez votre disquette, 1l 
suffira de taper ‘BRUN 
DOSPATCH' puis ‘INIT 
HELLO" comme pour initialiser 
une disquette avec un DOS 
normal. 


Les routines utilisées 


L'organisaton interne 
des tables du DOS 


Les tables tout d'abord : en ce qui 
concerne les mots-clé du DOS tels 
que CATALOG, LOAD etc. elles 
sont au nombre de trois. 


1) La liste des mots-clé 

($A884.A908). Cette table 
contient tous leurs caractères 
ASCII. La dernière lettre de 
chaque commande a son bit 7 à 1. 
es INIT est code $49 $4E $49 


2) Juste après ($A909.A940) 
vient une table qui indique à 
l'aide de deux octets par 
commande quelles sont les 
modalités d'utilisation de chacune 
d'entre-elles. 
Chaque octet étant constitué de 8 
bits, nous avons donc 16 bits au 
total à prendre en compte. En 
considérant que dans $8000 c'est 
le bit 0 qui est à 1 (pour une fois 
on compte de gauche à droite !) 
on obtient la table rappelée en 
encadré. 


Patrice Neveu 


3) La 3ème table ($9D1E.9D55) 
contient les points d'entrée de 
chaque commande, soit deux 
octets par commande. On apprend 
ainsi que la routine INIT 
commence en $A54F. 
Avec ces tables il devient possible 
de modifier, rajouter ou enlever 
des commandes au DOS 3.3. 
Nous possédons en effet tous les 
éléments la syntaxe des 
commandes, leurs modalités 
d'utilisation et les adresses de 
leurs routines. 


Table d'utilisation des commandes 


uw 


Signification 


C, |, O, sont autorisés 

V (Volume) est autorisé 
D (Drive) est autorisé 

S (Slot) est autorisé 

L (Length) est autorisé 
R (Range) est autorisé 

B (Byte) est autorisé 

A (Adress) est autorisé 


© © “y O On à UN = © 


Exemple : 

Pour l'ordre INIT, on obtient 2070 : 

Valeur: 8 4 2 1 6824 2? 
e 


Numéro: 0 1 23 4 5 6 





Le nom de fichier est optionnel 

I n'y a pas de paramètre de position (Catalog, Mon...) 
Premier nom de fichier attendu 

Deuxième nom de fichier attendu (Rename) 

Numéro de slot indispensable (PR#, IN#) 

Valeur de Maxfiles attendue comme opérande 
Commande accessible uniquement par programme 
Commande créant un nouveau fichier s'il n'existe pas 


1 8 4 2 4 
Q e ee e 


7 8 9.10 11 


8 4 2 1 


12 13 14 15 


Slot autorisé 
Drive autorisé 
Volume autorisé 
Nouveau fichier 


Nom obligatoire 
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Nous allons donc voir comme 
exemple le cas du remplacement 
de FP par le signe ‘-’. Au sujet de 
la syntaxe, nous avions en 
$AS8EF: 
FPINTBSAVEBLOADBRUNVER 
IFY 

que l'on doit remplacer par 
$A8EF: 
—INTBSAVEBLOADBRUNVERT 
FYO 

(les caractères gras représentent 
ceux dont le bit de poids fort est à 
1. 


Pour plus de simplicité, la routine 
de Run Universel sera implantée à 
la place de celle de FP 
($AS7A.A59D) ; il n'est donc pas 
nécessaire de changer la 3ème 
table. Par contre, la seconde où 
sont les paramètres à utiliser , ne 
correspond plus ; il y avait $4070 
et il faut $A075 (se reporter au 
tableau de signification des bits). 


Et voilà, il ne reste plus qu'à 
écrire la routine qui sera exécutée 
à chaque ‘-’. Elle commence par 
ouvrir le fichier dont le nom suit 
($A2A8). Ensuite, il faut 
connaître le type du fichier que 
l'on vient d'ouvrir. Ce 
renseignement est stocké en 
$B5C2 de cette manière : O0 = 
Text ; 2 = Applesoft ; 4 = 
Binaire. Selon le résultat trouvé 
on saute faire un BRUN 
($A38E), un RUN($A4D1) ou un 
EXEC ($ASC6). 





En ce qui concerne la recherche 
d'un fichier sur les deux lecteurs, 
la mise en place est plus délicate 
car on doit se brancher 
directement sur la routine de 
traitement des erreurs. 


Voici donc les grandes lignes de 
son fonctionnement : dès qu'une 
erreur se produit, le DOS saute en 
$A6D5. Nous allons donc y 
placer un saut vers notre routine 
BIDRIVE implantée en $A594 à 
la place de INT. Celle-ci va lire le 
numéro de l'erreur ($B5CS). Si 
ce n'est pas le code de FILE NOT 
FOUND (6), ni de VOLUME 
MISMATCH (7) ou de I/0 
ERROR (8) alors on revient à la 
routine ERRHANDLE. Sinon, on 
change de lecteur puis on vérifie 
si un changement a déjà été 
effectué juste avant. Si oui, le 
fichier n'est pas dans un des 
lecteurs et on va alors afficher 
l'erreur en repassant par 
ERRHANDLE. Autrement, on 
lance la commande demandée par 
un saut en DOCMD ($A180). 


Ce changement de lecteur 
fonctionne donc sur tous les 
ordres accompagnés d'un nom de 
fichier et ces patches peuvent être 
rajoutés non seulement au DOS 
3.3 mais aussi au DIVERSI-DOS, 
et généralement sur tous les DOS 
3.3 “améliorés”. . 





Comment faire ? 


Mettre au point ce programme était délicat, l'utiliser est 


particulièrement simple. 


*< Faire BRUN DOSPATCH, le DOS est alors modifié en 


mémoire ; 


+ _Initialiser une disquette (INIT HELLO par exemple) à l'aide 


de ce DOS nouveau style. 


Maintenant en ‘bootant’ sur la disquette ainsi préparée, vous 
disposez du smart run de type ProDOS, du CATALOG par le 
‘', mais surtout, inutile maintenant de préciser ",D1" ou ",D2"... 


Récapitulation 
‘DOSPATCH' 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE DOSPATCH,A$2000,L$C5 


2000- A9 A9 A2 00 8D 8D B7 8E 
2008- 8E B7 A9 85 A2 4A 8D 8F | 
2010- B7 8E 90 B7 A9 60 8D 91 
2018- B7 A9 OD 8D AC A6 A9 20 
2020- A2 8D A0 B7 8D BA A6 8E 
2028- BB A6 8C BC A6 A9 60 8D 
2030- BD A6 A9 20 A2 94 AO AS 
2038- 8D D5 A6 8E D6 A6 8C D7 | 
2040- A6 A0 15 B9 78 20 99 EF 
2048- A8 88 10 F7 A2 AO AO 75 
2050- 8E 35 A9 8C 36 A9 A9 40 
2058- AO 70 8D 37 A9 8C 38 A9 
2060- AD 3E 9D 8D 4C 9D AD 3F 
2068- 9D 8D 4D 9D A0 36 B9 8E 
2070- 20 99 7A A5 88 10 F7 60 
2078- AD AF 42 53 41 56 C5 42 
2080- 4C 4F 41 C4 42 52 55 CE 
2088- 56 45 52 49 46 D9 20 A8 
2090- A2 AD C2 B5 29 7F FO OA 
2098- C9 02 FO 03 4C 8E A3 4C 
20A0- D1 A4 4C C6 A5 AD C5 B5 
20A8- C9 09 BO 18 C9 06 90 14 
20B0- A9 03 ED 68 AA 8D 68 AA 
20B8- A5 4A DO 05 E6 4A 4C 80 
20C0- A1 4C 8D B7 60 
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16 OO y on nr ne oO A3 ha 


59 
60 
61 
62 
63 
64 
65 


66 


67 


68 


69 
70 
71 


72 
73 
74 
75 
76 
77 
78 
79 


Source ‘DOSPATCH.S’ 


Assembleur Big Mac 


LST OFF 


Ééihéititittiitiitiiiiitiiiiiéitié 


#* PATCHES AU DOS 3.3 

* 

#* 1) / PERMET LE CATALOG. 

# 2) - LANCE LES FICHIERS A/B/T 
# 3) FP ET INT SONT SUPPRIMES 

#* 4) RECHERCHE SUR 2 DRIVES LE 
#* FICHIER & VOLUME DEMANDES 
* 
* 


MOOD OO 


###PATRICE*NEVEU**LE*8/7/85%#** 


ORG $2000 
oBJ $8000 
DRIVESW  EQU $4A = 1 APRES CHANGEMENT DE DR 
IVE 
DOSADR17 EQU $9D3E ADRESSE DE CATALOG 
DOSADR23 EQU $9D4C REMPLACE CELLE DE FP 


DOSORDRES EQU $A8EF PARTIE DE LA TABLE DES COM 
MANDES DOS. 


TYPEFOUND EQU $B5C2 VOLUME DU FICHIER OUVERT 


ERRNUM EQU $B5C5 CODE D'ERREUR 

CLOSEALL EQU $A316 FERME TS FICHIERS OUVERTS 

OPEN EQU $A2A8 ROUTINE OUVERTURE FICHIER 

DOCMD EQU $A180 EXECUTE LA COMMANDE DOS 

PATCH EQU $A57A ADRESSE DU PATCH DE RUN UN 
IVERSEL 

PATCH1 EQU $A594 ADRESSE DU BIDRIVE 

PATCH2 EQU $B78D ROUTINE FIXANT DRIVESW = 0 

BRUNHAND EQU $A38E FAIT UN BRUN 

RUNHAND EQU $A4D1 RUN 

EXECHAND EQU $A5C6 EXEC 

GOODOPEN EQU $A6BA VA ICI LORSQUE LE FICHIER 


A ETE OUVERT 


ERRHANDLE EQU $A6D5 EST LANCE LORS D'ERREURS 


DRIVENUM EQU $AA68 =1 SI DRIVE 1 
=2 SI DRIVE 2 BRANCHE 
PATCHDOS EQU $BFE6 PATCH DES DERNIERS DOS 3.3 


(JANVIER 83) 


LDA #$A9 PATCH2 LDA #0 

LDX #50 STA DRIVESW 
STA PATCH2 RTS 

STX PATCH2+1 

LDA 4#$85 


LDX #DRIVESW 
STA PATCH2+2 
STX PATCH2+3 
LDA #$60 

STA PATCH2+4 


* SI LE FICHIER EST TROUVE, ALORS 
# DRIVESW = 0. 


LDA #$0D LE BCC EST AVANCE DE 9 OCT 

STA S$A6AC SI PAS D'ERREURS. 

LDA #$20 IL VA ICI, OU 4 OCTETS ETA 
IENT LIBRES 

LDX #<PATCH2 MAINTENANT, ON SAUTE À PAT 


CH2, C'EST À 


LDY #>PATCH2 DIRE QU'ON FAIT DRIVESW=0 


LORSQU''UNE 

STA GOODOPEN COMMANDE DOS A ETE EFFECTU 
EE SANS 

STX GOODOPEN+1 ERREUR. 


STY GOODOPEN+2 
LDA #$60 ET ON CONTINUE LE TRAITEME 
NT NORMAL 


STA GOODOPEN+3 


# ERREUR --> CHANGE DE DRIVE 


LDA #$20 
LDX #<PATCH1 


$20 EST LE CODE DE ‘JMP' 
ON PATCHE LE TRAITEMENT DE 
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S ERREURS : 

AVANT DE FAIRE COMME D'HAB 
ITUDE, ON 

VERIFIE SI C'EST CODE6 (FI 
LE NOT FOUND) 
CAR DANS CE CAS, 
T PAS PERDU ! 


LDY #>PATCHI 
STA ERRHANDLE 
STX ERRHANDLE+1 TOUT N'ES 


STY ERRHANDLE+2 


Eee mm om oo ee oo me 
LDY #MOTSEND-MOTSDOS CAR DES MOT-CLES ONT ETE 
RAJOUTES ET 
CHNGMOTS LDA MOTSDOS, Y D'AUTRES ENLEVES: 
STA DOSORDRES,Y  / - RAJOUTES, FP INT VERIF 
Y ENLEVES 
DEY 
BPL CHNGMOTS 
À om om om om mec eo oo oo om 
* CHANGE LA TABLE DES MOT-CLES 


#* POSSIBLES ($A909.A940) 


LDX 4#$A0 LE RUN UNIVERSEL PEU ÊTRE 
SUIVI 

LDY #$75 DES MOTS: À (BRUN), R (EXE 
CJ, S,D,V. 

STX $A935 D'UN NOM OBLIGATOIRE (BRUN 
/EXEC) 

STY $A936 OU FACULTATIF (RUN) 

LDA 4540 LE SLASH REPOND AUX MEMES 
PARAMETRES 

LDY 4570 QUE LE CATALOG. 

STA $A937 

STY $A938 


LDA DOSADR17 
STA DOSADR23 
LDA DOSADRI17+1 
STA DOSADR23+1 


* INSTALLATION DE LA ROUTINE DE 
* RUN UNIVERSEL ET BIDRIVE 


LDY #BIDRIVEND-UNIRUN CALCUL DE LA LONGUEUR D 
E LA ROUTINE 


INSTAL LDA UNIRUN, Y POUR POUVOIR LA TRANSFER 


ER... 
STA PATCH, Y 
DEY 
BPL INSTAL 
RTS LE DOS EST MAINTENANT MODI 
FIE. 
tommmmmmmmmmm………………_-— 
MOTSDOS ASC "-" LES MOT-CLES SONT CODES 
AINSI: 
ASC "/" LES PREMIERS CODES ASCII 
AVEC BIT 8 = 0 
ASC 'BSAV' PUIS LE DERNIER AVEC BIT 8 
= 1 
ASC °"E" 
ASC 'BLOA' 
ASC D" 
ASC "BRU" 
ASC "N" 
ASC 'VERIF' 


MOTSEND ASC "Y" 


UNIRUN UJSR OPEN ON VA OUVRIR CE QUI NOUS I 

NTERESSE 

LDA TYPEFOUND ON REGARDE LE TYPE DU FICH 
IER 

AND #$7F ON LE DE-LOCK (LOCK --> BI 
T 8 = 1) 

BEQ EXEC CODEO = TEXT 

CMP #2 CODEZ2 = APPLESOFT 

BEQ RUN 

Suite de ‘DOSPATCH.S’ page 72 — 


Pom's n° 23 


J'ai essayé sans succès de faire tourner 
le programme ORDRALPHABETIX 
(Pom's 13). Lorsque je le ‘RUN’, les 
messages «Must be linked» puis «Proc 
cours indefined» s'affichent. Que faire ? 
Monsieur Charles IZARD, 11400 
CASTELNAUDARY 


Pour créer le module exécutable 
ORDRALPHA.CODE, il est nécessaire 
d'effectuer les opérations suivantes : 


+ saisir les sources avec l'éditeur 
Pascal, ou utiliser le programme 
Basic->Pascal de la disquette Pom's 
pour transférer les fichiers du DOS 
3.3 vers le Pascal. Vous devez alors 
obtenir les sources ORDI.TEXT et 
ORD2.TEXT sur un volume appelé, 
par exemple, ‘TEST1: ; 

+ compiler ORDI1.TEXT pour obtenir 
ORDI1.CODE (ORDI1.TEXT utilise 
le SYSTEM. LIBRAR YŸ) ; 

°_ assembler ORD2.TEXT pour obtenir 
ORD2.CODE ; 


+ _‘linker’ les deux modules en tapant 
successivement depuis le niveau 
global du Pascal : 


L 
(* pour appeler le Linker *) 
TEST1:ORD1.CODE 
(* au message "Host file?" *) 
TEST1:ORD2 
(* au message "Lib file?" *) 
: SYSTEM.LIBRARY 
<répondre par un RETURN> 
N 
. (au message "Map file?" *) 
TEST1:ORDRALPHA.CODE 
(* au message "Output file?" *) 
Le fichier est alors directement 
utilisable par l'option X (Execute) du 
niveau global du Pascal 1.1. Attention : 
le programme assembleur n'est pas 
compatible avec le Pascal 1.2 et devrait 
être modifié en conséquence. 


Possesseur d'un ‘vieil" Apple lle, j'ai 
acquis le kit de mise à jour 65C02 dès 
sa sortie. Je me trouvais donc à la tête 
d'un nouveau //e, une sorte de super lc 
avec des slots. 

Premier choc avec Locksmith 5.0 : il 
ne fonctionne plus. Second choc : le 
logiciel de la carte EVE également. 
Troisième choc : le passage en 80 
colonnes devient risqué (perte aléatoire 
du programme en cours). La carte EVE 
accusée des problèmes est promptement 
remplacée par une Féline ; miracle, 
Locksmith et Purplesoft fonctionne à 


nouveau. 


Courrier 
des Lecteurs 


Questions techniques : Comment savoir 
si la touche CTRL est enfoncée 
(seule) ? idem pour SHIFT ? et CAPS 
LOCK ? et l'inverseur français! 
Monsieur Thierry MECHAIN, 17300 
ROCHEFORT 


Merci pour votre expérience. Le chip 
clavier du //e n'envoie pas d'information 
sur le bus lorsque les touches CTRL ou 
SHIFT sont enfoncées seules. Il n'est 
donc pas possible d'en déterminer l'état 
par logiciel. Il en va de même pour 
CAPS-LOCK et l'inverseur de jeux de 
caractères. 


La 36 ème piste, suite. 


Il existe une autre solution, pratique et 
rapide, pour obtenir la 36ème piste : il 
suffit de demander au DOS qu'il formate 
correctement la disquette. Un petit patch 


suffit : 


CALL -151 
BEFE: 24 [au lieu de 23] 
(nombre de pistes) 


B3EF: 24 [au lieu de 23] 
AEB5: 90 [au lieu de 8C] 

(boucle de libération des 

pistes) 
INIT HELLO 
Et voilà ! De plus, le DOS contenu sur 
cette nouvelle disquette permet lui-aussi 
un formatage ultérieur en 36 pistes. 


(N.D.L.R. : nous avons précisé entre 
crochets les anciennes valeurs contenues 
dans les adresses indiquées ; le lecteur 
devra les contrôler afin de ne pas 
modifier un DOS déjà patché ou un 
ProDOS réassemblé pour une nouvelle 
version) 

À ce propos, un certain nombre d'autres 
lecteurs de disquettes compatibles 
permettent un formatage sur les 40 
pistes d'une disquette 5 pouces 1/4 (le 
drive Chinon, par exemple). Il est donc 
tentant de faire la même expérience : 


BEFE: 28 
B3EF: 28 
AEB5: A0 


Le problème se pose différemment sous 
ProDOS: celui-ci est capable de gérer 
tout type de mémoire de masse, mais il 
contient également le programme 
d'accès aux Disk ][. 

Avec la version 1.0, la réponse se 
trouve dans Beneath Apple Prodos, 
mais il y a un léger bug, il faut taper : 
UNLOCK PRODOS 


BLOAD PRODOS, TSYS, 
A$2000 

CALL-151 

520D: 40 [au lieu de 18] 
($118 à $140 blocs au total) 

BSAVE PRODOS, TSYS, 
A$2000 


Le FILER permet de formater une 
disquette et doit donc, lui-aussi, être 
UNLOCK FILER 


BLOAD FILER, TSYS, 
A$2000 
4244: 40 [au lieu de 18] 


79F4: 28 [au lieu de 23] 

BSAVE FILER, TSYS, 
A$2000 

Les routines s'étant déplacées dans la 

nouvelle version PRODOS 1.1.1, les 

modifications sont à faire ainsi : 

Pour ProDOS : 

56E3: 40 

Pour le Filer 


42A1: 40 
7AF4: 28 


Enfin, deux octets du CONVERT qui 
intéresseront les possesseurs de 
disquettes DOS 3.3 en format non 
standard : 

30E4 contient $11 

30EB contient $0F, c'est-à-dire l'adresse 
physique du début du catalogue. 

En remplaçant les valeurs d'origine 
comme ci-dessous : 

30r9: 29 

30FA: 10 


CONVERT sera en mesure de lire toute 
disquette DOS 3.3 formatée en 35, 36 


ou 40 pistes. 


Jacques REY, 77000 Melun 
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Joli feu d'artifice de début 
d'année. Avec l'introduction du 
Macintosh Plus, Apple a tiré 
quelques solides cartouches. 
Nanti d'une mémoire augmentée, 
d'un clavier élargi et d'une 
interface pour périphéri- ques à 
transfert rapide, le nouveau 
Macintosh s'implantera- t-il dans 
les entreprises ? C'est ce que l'on 
souhaite à (Cupertino, où 
l'objectif avoué de John Sculley 
est d'augmenter les ventes de 
Macintosh de 30%. 


Compatibilité ? 


En attendant, quelques posses- 
seurs de Macintosh traditionnels 
se font des cheveux : leurs 
programmes et ustensiles favoris 
fonctionneront-ils sur le 
Macintosh Plus ? Pourquoi faut-il 
toujours que le progrès passe par 
des sacrifices ? En effet, après 
une période "sèche" en matière de 
logiciels, le Macintosh était arrivé 
à une sorte de maturité et les 
utilisateurs avaient pris leurs 
habitudes dans le menu 
“Pomme”, des accessoires de 
bureau bien utiles (comme 
MacTracks, un éditeur de macro 
commandes permettant de déclen- 
cher d'un doigt l'impression d'un 
document), reliés par les prises 
DB9 des accessoires comme le 
numériseur d'images Thunder- 
scan. Las! Voici par exemple un 
logiciel et un accessoire qui ne 
fonctionnent plus sur le 
Macintosh Plus. Car, dans 
certains cas, le Macintosh Plus 
sera un “Macintosh Moins”. En 
cause, pour le logiciel, le 
nouveau système d'organisation 
hiérarchique des fichiers : le HFS 
(Hierarchical File System). A 
cause de lui, de nombreux 
utilitaires et notamment 
MacTracks ne fonctionnent plus 
du tout sur le Plus. Tout comme 
les programmes MacLion, 
MacExpert et Through the 

looking glass. Toute une série 
d'autres exigent qu'on leur 
conserve leur système d'origine 
et qu'on n'y installe surtout pas le 
nouveau système avec le Finder 
5.1 (comme Crunch, Expert 

Lisp, Helix, Mac Publisher, 
Smooth Talker, le Macintosh 

Development System - c'est un 
comble! - etc). Enfin, d'autres 
(comme le Switcher, PageMaker, 
TK Solver, TéléMac, Omnis3, 
MacDraft, etc) exigent que les 
fichiers ou fichier d'aide, ou 
applications (dans le cas du 
Switcher) se trouvent dans le 
même dossier. 


Plus de mémoire 


Les ennuis ne se bornent pas 
qu'au logiciel. L'utilisation de 
prises “Mini Din” non standar- 
disées pour relier au Macintosh 
Plus l'imprimante ou le modem 
ont provoqué en février un vent 
de panique : personne n'en dispo- 
sait, et les Macintosh Plus ne 
pouvaient imprimer. Et pas 
possible de bricoler un câble, car 
ces prises sont introuvables au 


magasin d'électronique du coin. 
Autre problème : ces prises ont 
été modifiées. L'un des contacts 
de la prise permettait d'extraire du 
Macintosh du courant en 5 volts, 
ce qui alimentait notamment le 
numériseur Thunderscan. Con- 
clusion : même avec le nouveau 
câble, les accessoires comme le 
Thunderscan ne fonctionneront 
pas, il faudra leur ajouter une 
alimentation extérieure. Mais on 
pardonne tout avec la stupéfiante 
amélioration des performances du 
Macintosh Plus (qui sera dès l'été 
extensible à 4 Mégas de mémoire 
vive avec les nouveaux boîtiers 
mémoire de 1 Méga). Et aussi 
grâce aux prix peu élevés 
appliqués par Apple France pour 
la transformation des Mac 
existants en Macintosh Plus. Tout 
ceci suffira-t-il à assurer les 
ventes d'Apple ? 


Le futur Mac modulaire 


Il ne faudrait pas s'imaginer que 
la firme à la pomme entend 
désormais se reposer sur ses 
lauriers. Les efforts des 
ingénieurs de Cupertino se 
portent maintenant sur deux 
fronts : celui du Macintosh 
modulaire et celui de l'Apple //. 
Un nouveau Mac en trois 
morceaux (clavier, unité centrale 
et moniteur) pourrait être présenté 
soit à la fin de l'été, soit en début 
1987. Il comporterait le 
processeur de la série 68000 
baptisé 68020 (le grand frère de 
celui du Mac). ]l aurait surtout la 
particularité d'être une machine 
ouverte”. Acceptant ainsi des 
cartes d'extension, des disques 
durs internes etc. 


Côté Apple //, on parle désormais 
de deux produits. L'un, de bas de 
gamme, serait un benjamin de 
l'Apple //e vendu 500 dollars ou 
moins. Le second serait le 
fameux Apple // équipé d'un 
processeur 16 bits : c'est le 
vaisseau fantôme de la micro 
informatique, on en parie depuis 
au moins deux ans, mais il finira 
bien par arriver. Rendez-vous 
peut être à l'automne. 


Les efforts d'Apple vont surtout 
viser désormais trois directions : 
l'harmonisation de ses deux 
gammes de produits, la commu- 
nication et le perfectionnement de 
l'édition électronique. Avec deux 
buts : assurer la cohérence des 
produits (et la compatibilité entre 
Macintosh et Apple //), et tenter 
par le biais de la communication 
(et la compatibilité avec les 
fichiers de l'IBM PC) et de 
l'édition d'implanter le Macintosh 
Plus dans les entreprises. 


Harmonisation des 
gammes : 


le programme 
commun 


Voici donc les Apple // et les Mac 
dotés d'une série de périphéri- 
ques communs : modems, impri- 





Micro- 


informations 


Jean-Michel Gourévitch 


mantes, lecteurs de disquettes. 
C'est probablement ce change- 
ment là qui est le plus significa- 
tif : le Mac et l'Apple // utilisent 
dorénavant les mêmes disquettes 
de 800 Ko. On verra prochaine- 
ment un utilitaire permettant de 
convertir les fichiers du Mac en 
Prodos pour pouvoir les utiliser 
sur l'Apple //. Et bientôt, les 
disques durs seront, eux aussi, 
communs aux deux gammes, en 
attendant un Apple // capable 
d'émuler le fonctionnement du 
Mac. Dans le sens inverse, il faut 
remarquer l'étonnant logiciel 
Mac+Il dû à un jeune auteur 
prodige : David Hemmo et 
distribué par JRD. Ce produit se 
compose d'un câble destiné à 
relier l'Apple // au Mac et de deux 
logiciels, l'un pour l'Apple // 
(transférant le contenu des ROMs 
de celui-ci vers le Mac), l'autre 
pour le Macintosh (une adaptation 
du DOS 3.3 ). A la mise en route, 
le contenu des ROMs de 
l'Apple // est transféré vers le 
Mac. Un programme baptisé 
MacCom pour l'Apple // et un 
autre appelé MacDos pour le 
Macintosh permettent de 
transférer sur le Mac programmes 
et fichiers de l'Apple //. A en 
croire son auleur, Ce programme 
permet de faire tourner sur le Mac 
pratiquement tous les 

grammes de l'Apple //. Prix : 
1950,00 F. Bien utile pour les 
nouveaux convertis au Mac qui 
ont encore une vaste logithèque 
pour l'ancêtre. 


La course de vitesse est engagée : 
aux États-Unis, un autre logiciel, 
II in a Mac de Computer 
Applications permet lui aussi 
de simuler le fonctionnement 
d'un Apple //. On voit même sur 
l'écran du Mac les lecteurs de 
disquettes, le modem et le 
joystick. Prix : 50 dollars. 


La communication 


C'est un atout indispensable à la 
réussite du Mac Plus qui devra 
aussi bien pour s'imposer pou- 
voir s'intégrer dans des réseaux 
locaux que pouvoir être connecté 
à des gros ordinateurs. Lors de la 
présentation du Mac Plus, John 
Sculley a donc bien insisté sur les 
accords signés avec d'importants 
partenaires. Avec Northern 
Telecom, un géant américain 
des télécommunications, pour 
permettre l'utilisation des lignes 
ordinaires et des centraux 
électroniques pour connecter les 
Mac à d'autres ordinateurs et 


périphériques. Avec General 
Electric Information Servi- 
ces (la filiale communication de 
General Electrics), pour pouvoir 
relier le Macintosh au réseau 
Dealertalk permettant à des 
sociétés de relier les sièges 
centraux aux filiales et aux 
concessionnaires. Ce réseau 
comporte un logiciel de base de 
données, un bulletin électronique 
et du courrier électronique. Le 
contrat permet d'utiliser les gros 
ordinateurs de General Electrics. 


Un autre accord lie Apple à Dow 
Jones, pour l'accès aux informa- 
tions boursières. Dow Jones a 
ainsi développé pour le Mac Plus 
un logiciel : Straight Talk 
permettant l'accès automatique 
aux bases de données de Dow 
Jones 

Un produit existe déjà permettant 
de relier le Macintosh aux IBM 
PC. C'est le PC MacBridge de 
Tangent Technologies. La 
carte permet en fait de relier un 
IBM PC à un réseau AppleTalk. 


En France, Alpha Systèmes a 
développé le Netway 1000 A, 
qui remplace un contrôleur 3274, 
émule un terminal 3278 et dessert 
un réseau AppleTalk permettant à 
31 Macintosh (et à 16 d'entre eux 
simultanément) de se connecter à 
un ordinateur central. 


Dans les entreprises, la communi- 
cation passera par des serveurs de 
réseau. Celui d'Apple n'est tou- 
jours pas annoncé. En attendant, 
voici le 3Com 3 Server de 
3Com composé d'un disque dur 
de 36 Méga-octets. Au travers 
des réseaux Ethernet et Appletalk, 
on peut relier entre eux des IBM 
PC et des Macintosh. Prix du 
serveur : 8000 dollars. La revue 
Infoworld qui l'a testé lui a 
accordé une note extrêmement 
élevée pour ses hautes 
performances. Et 3Com vient 
d'annoncer le DiskPlus, un 
disque dur de 70 Mégas à temps 
d'accès ultra court (30 
millisecondes) se connectant à 
l'interface SCSI. 


Un autre accès au réseau Ethernet 
est pres grâce au Fastpath 
de Kinetics : une boîte noire 
s'insèrent entre le réseau 
AppleTalk et Ethernet. Prix : 
2500 dollars pour la boîte, plus 
1500 pour le logiciel K-Talk. 


Enfin, la dernière annonce 
concerne un réseau pouvant se 
partager les Hyperdrive de 
General Computer importés 
en France par P-Ingénierie. 
L'Hyperdrive, c'est cet étonnant 
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disque dur (disponible en version 
10 ou 20 Mégas) qui s'installe à 
l'intérieur du Macintosh, et est 
désormais adaptable au 
Macintosh Plus. Ce disque était 
jusqu'alors le plus rapide. Nos 
essais personnels ont ainsi 
chronométré dans Excel un temps 
de 8 secondes pour ouvrir un 
document (contre 18 secondes 
avec un lecteur de disquettes). 
Désormais, un logiciel baptisé 
Hypernet permet d'utiliser un 
Hyperdrive comme serveur et d'y 
relier un maximum de 31 Mac a 
AppleTalk. Prix : 25900,00 F 
our un Hyperdrive 20 et 
$750,00 F HT pour Hypernet. 


On trouve enfin d'autres serveurs 
aux États-Unis chez Infosphere 
avec MacServe et chez Hayes 
avec l'Interbridge, permettant 
de relier entre eux plusieurs 
réseaux AppleTalk. Enfin, la 
nouvelle version de Mac 
Charlie : Mac Charlie Plus, 
permet non seulement aux 
Macintosh de faire tourner des 
logiciels IBM, mais aussi de se 
connecter aux ordinateurs cen- 
traux et aux réseaux IBM. Pas de 
doute : 1986 devient l'année des 
serveurs pour le Mac. 


Disques durs : 
baisses à 
l'horizon 1986 


Ce sera aussi pour le Macintosh 
l'année des disques durs. Grâce à 
la nouvelle interface qu'a installé 
Apple sur le Macintosh Plus : la 
SCSI (les initiés prononcent 
"scuzzy"). Cette interface norma- 
lisée permet d'assembler en 
chaîne jusqu'à 7 périphériques 
avec une haute vitesse de transfert 
(1,5 Méga-octets par seconde). 
On peut donc désormais facile- 
ment relier au Mac des lecteurs de 
disques optiques, des scanners, 
des robots et des disques durs. 
Avec deux avantages : 


+ la vitesse, car les données du 
disque ne passent plus par un 
des "lents" ports série ; 

+ le coût, car l'interface étant 
normalisée, la carte contrôleur 
est peu onéreuse (moins de 
200 dollars) et on peut y relier 
des disques durs déjà utilisés 
pour l'IBM. 


Lecteurs, voici un pari : dans six 
mois, les disques durs auront 
baissé de 50%. Et ce n'est qu'un 
début : songez qu'aux États- 
Unis, un disque dur de 20 Méga- 
octets pour l'IBM PC est tombé 
au-dessous de 400 dollars. 

Voici donc déjà annoncés toute 
une salve de disques durs pour le 
Mac se connectant sur le port 
SCSI. 

Mention spéciale au disque dur de 
10 Mégas de Lodown : son 
prix, 795 dollars, en fait le 
meilleur marché. Suivi par le 
Macnifty Personal 10 de 
Macnifty. Mention spéciale 
aussi à l'AST 4000 d'AST : 
c'est le plus gros avec ses 74 
Mégas pour 7000 dollars. 
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L'Hyperdrive voit apparaître des 
concurrents qui s'installent à 
l'intérieur du Macintosh Plus 
run prix inférieur, ce sont les 
Overdrive 10 et 20 de Levco 
(1775 et 1975 dollars) ainsi 4 
les Micahdrive 10 AT et 20 
AT de Micah (1495 et 1895 
dollars). À noter encore des 
disques durs reliés à l'interface 
SCSI chez Supermac 
Technology de Mountain 
view, Univation Inc, Sunol 
Systemset MD Ideas de 
Foster City (Californie), ainsi 
qu'une nouvelle version de la 
Bernouilli Box d'Iomega. 


Des monstres 


Comme si le Macintosh Plus 
n'était pas suffisant, voici que 
des constructeurs bricolent des 
Mac encore plus rapides et 
puissants. Voici ainsi le Super 
20 de Levco, comprenant un 
processeur 68020 cadencé à 16 
Mégahertz, 2 ou 4 Méga-octets de 
mémoire vive, et l'emplacement 
d'un coprocesseur arithmétique 
68881. Prix : 8500 dollars. 


En France, P-Ingénierie impor- 
te l'Hyperdrive 2000 de 
General Computer : il contient 
un processeur cadencé à 12 
Mégahertz, un coprocesseur 
arithmétique 68881 et 2 Mégas de 
mémoire. Ce "superMac" permet 
d'accélérer certaines opérations 
entre 2 et 100 fois. Un dessin 
employant des routines du 
Macintosh prend ainsi 170 
secondes sur le Mac contre 17 sur 
l'Hyperdrive 2000. Ce micro 
décidément gonflé est destiné à 
tous les amateurs de hautes 
performances en matière de DAO, 
de Finances, de simulations, mais 
aussi d'édition. 


MaxRAM est une carte qui 
transforme un Macintosh 128Ko 
ou 512Ko en Mac 1536Ko, avec 
la possibilité de choisir entre la 
configuration 1 Mo de mémoire 
centrale / 400Ko de RAM disk, et 
la configuration 512Ko de 
mémoire / 1 Mo de RAM disk, 
cette dernière étant, à notre avis, 
la plus utile.Cette carte remplace 
la carte mère du Mac et ne pose 
apparemment pas de problème de 
compatibilité. Une des 
caractéristiques les plus intéres- 
sante du système est qu'il permet 
la récupération du contenu du 
RAM disk après une bombe ou 
un redémarrage. Le principe de 
travail avec cette extension est le 
suivant : démarrage du Mac avec 
chargement automatique en RAM 
(1 Mo) de MacWrite et MacPaint 
et tout autre logiciel de votre 
choix. A partir de là, tout se fait 
en RAM, le lecteur interne ne se 
servant plus qu'aux sauvegardes 
sur les disquettes. Les traitements 
deviennent très rapides ; ainsi, le 
chargement de MacWrite, qui 
prenait 15 secondes sur disquette 


(Finder 4.1 et Mac 512), 8" sur 
HyperDrive et 7" sur le MacPlus 
avec cache mémoire, ne prend 
plus que 5". Cette carte est 


vendue par la société CCAM 
7300,00 F TTC aux possesseurs 
d'un 512Ko, 9900,00 F à ceux 
d'un 128 Ko. 


Edition 
électronique 
au programme 


Car l'autre axe stratégique 
d'Apple c'est le marché de 
l'édition électronique. Une autre 
prévision de Pom's : on verra 
cette année apparaître pour le Mac 
des logiciels de mise en page 
électronique révolutionnaires. 
marché de l'édition électronique 
est en pleine explosion. Dans les 
entreprises, il pourrait à lui seul 
justifier l'entrée du Macintosh 
Plus, (ou d'un nouveau frère doté 
d'un écran pleine page). Apple a 
visiblement décidé de tenter ce 
pari là. Au risque de voir le Mac 
devenir un terminal graphique des 
IBM. 


En attendant une super impri- 
mante à laser capable d'imprimer 
avec une densité de 1000 points 
par pouce, Apple a perfectionné 
sa Laser Writer (imprimant à 
300 points par pouce). Elle inclut 
sept nouvelles polices de carac- 
tères et contient un Méga supplé- 
mentaire de mémoire morte. Pour 
l'exploiter, Adobe, l'auteur du 
contrôleur PostScript au cœur 
de l'imprimante a annoncé encore 
d'autres polices téléchargeables 
dans l'imprimante. 


Côté logiciels, Aldus a annoncé 
une nouvelle version (1.2) de 
PageMaker, capable d'utiliser 
les 12 nouvelles polices de 
caractères d'Adobe, Manhattan 
Graphics sort la version 2.1 de 
Ready Set To Go capable de 
traiter des brochures de 40 pages, 
Boston Software a perfec- 
tionné MacPublisher connu en 
France sous le nom de 
MacEditeur, désormais capable 
de traiter des brochures de 96 
pages, comportant de nouveaux 
formats (y compris le format 
tabloïd), des possibilités d'impor- 
ter des éléments par télécom- 
munications, et une palette 
graphique de 99 motifs pour 
réaliser des fonds. En prime, 
cette version est capable 
d'imprimer en couleurs sur la 
nouvelle imprimante Imagewriter 
IL. 


Déjà de nouveaux 
logiciels 


Pour le Mac deux catégories de 
nouveaux logiciels, ceux qui 
fonctionnent sur le 512Ko, et 
ceux qui profitent déjà des 
caractéristiques du Macintosh 
Plus. Dans la première catégorie, 
Microsoft sort une nouvelle 
version de Muitiplan : la 1.1, 
permettant d'utiliser simultané- 
ment plusieurs feuilles, et 
intégrant de nouvelles polices de 
caractères et sept fonctions 
financières nouvelles. Statware 


sort une version professionnelle 
de son programme statistique 
Stat 80. Il comporte notamment 
des analyses de corrélations des 
analyses factorielles et des 
manipulations de matrices avec 
18 opérateurs et 50 fonctions. 
Prix : 400 dollars. Sur le front 
des langages, remarquons que 
Philippe Kahn, le patron français 
de Borland sort une version de 
son Turbo Pascal pour le 
Macintosh. Tandis que chez 
P-Ingénierie, sort le TML 
Pascal, présenté comme le 
premier environnement complet 
de développement de logiciels 
Pascal produisant du code natif 
68000, et offrant ainsi les 
possibilités du défunt Lisa. Prix : 
1400,00 F HT. 


Voici enfin d'autres logiciels plus 
spécialement destinés au Mac 
Plus. Avec d'abord la nouvelle 
version de Jazz. Ce programme 
était à l'étroit sur le 512Ko, il 

urra respirer sur le Mac Plus. 

out comme SuperCrunch de 
Paladin Software, le super 
tableur dont on dit qu'il 
concurrence Excel. 


Et l'Apple // 


Il ne faudrait pas croire que 
l'Apple // est abandonné. Voici 
pour lui des quantités de 
perfectionnements matériels. 


Des cartes 


Des cartes comme s'il en 
pleuvait. Deux fabricants de 
cartes pour l'IBM : AST et 
Quadram s'intéressent au //e. 
AST sort ainsi une carte de 
mémoire additionnelle d'un 
Méga-octets, une carte Ram Disk 
avec mémoire cache, une carte 
multi-fonctions (horloge, deux 
ports séries, etc), et un disque 
dur de 10 ou 20 Mégas. Tandis 
que Quadram propose carte 
horloge, carte 80 colonnes 
étendue, interface série avec 
buffer et la Multicore, une carte 
multi-fonctions (horloge, port 
série, port parallèlle, extension de 
256Ko de mémoire). Applied 
Engineering, l'un des pionniers 
des extensions pour l'Apple //, a 
mis au point une carte accélérant 
les programmes d'un facteur de 
3/1 et permettant en prime 
d'installer un processeur 16 bits 
dès que ceux ci deviendront 
disponibles. Avec 256Ko de 
mémoire vive. Prix : 279 dollars. 


Mieux voir 


L'amélioration de l'écran du // est 
ssible. Grâce au Screen 
nhancer de Video 7. Un 

modèle couleur permet de 

disposer de 4 couleurs de textes 
et 16 teintes de gris. Grâce aussi 

à un petit montage proposé dans 

la revue britannique Apple User 

par Chris Payne, permettant de 
transformer la sortie vidéo 


71 


42 


monochrome en TTL (comme sur 
l'IBM). Chris Payne vend son 
montage tout fait pour 25 livres. 


Améliorer 
Appleworks 


Appleworks a été l'un des 
logiciels les plus vendus aux 
Etats-Unis. Rien d'étonnant donc 
si les Américains le per- 
fectionnent. Le Southern 
California Research Group 
l'installe ainsi en ROM, sur une 
carte qui s'installe dans l'Apple 
Ile. Chargement ultra rapide, 
opérations facilitées. Prix : 269 
dollars. A noter qu'il faut leur 
envoyer une disquette contenant 
Appleworks. 


La revue Nibble propose au 
travers de l'International 
Apple Core un programme 
permettant de réaliser des 
mailings avec Appleworks pour 
30 dollars. 


Communiquer 


A bas prix. Mais si c'est 
possible ! Avec le Minitel. 
Marvie propose une interface de 
liaison (la M 232 I) permettant 
d'utiliser le modem du Minitel, et 
de stocker les pages vidéotex sur 
les disquettes de l'Apple, de 
transformer celui-ci en terminal 
80 colonnes, de visualiser des 
pages ou d'éditer des textes. 
Prix : 995,00 F TIC avec carte 
série pour le //e et 695,00 F pour 
le //c. 


Suite du source 


155 

156 

157 RUN 
158 EXEC 
159 


JMP BRUNHAND 
JMP RUNHAND 
JMP EXECHAND 


160 2 


Voler 


Grâce au Macintosh, on l'atten- 
dait depuis longtemps. Eh bien 
tandis que Bill Budge, l'auteur 
inspiré de Pinball Construc- 
tion Set concocte un simulateur 
de vol sur navette spatiale, 
Sublogic s'est enfin décidé à 
sortir pour le Mac son Flight 
Simulator le roi des simulateurs 
de vol. Avec des fenêtres 
tridimensionnelles multiples per- 
mettant de regarder simultané- 
ment plusieurs vues du paysage 
tout en volant. On peut même se 
regarder voler soi-même d'un 
point fixe extérieur. Vivement 
que ce simulateur arrive en 
France. 


Formation 


La société KA organise le jeudi 
24 avril au PLM St Jacques un 
séminaire avancé sur Multiplan, 
animé par Hervé Thiriez et clôturé 
par Bernard Vergnes, président 
de Microsoft France. 


Ce séminaire s'adresse à tous les 
utilisateurs confirmés de 
Multiplan pour, en une journée, 
leur présenter de multiples 
astuces d'utilisation de ce 
logiciel. 


Mesurer 


La revue InCider de février a 
consacré un article aux logiciels et 
interfaces permettant de trans- 
former l'Apple // en instrument 


scientifique. On y trouve ainsi 
des logiciels d'expérimentation en 
chimie (Chem Lab Simon & 
Schuster) ou en température 
(Temperature Lab d'Hayden 
à 100 dollars) , d'anatomie (The 
body in Focus de CBS 
Software et The Body 
stransparent de Designware), 
un système transformant l'Apple 
en électrocardiogramme d'e dort 
(Cardiovascular Fitness Lab 
de HRM au prix de 175 dollars). 
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JRD 

11, place Sainte Croix 
45000 Orléans 

Tél. : 38 54 83 20 


Tangent Technologies 
5720 Peachtree Parkway Suite 
100 Norcross GE 30092 


Alpha Systèmes 
29, avenue Gambetta 
38000 Grenoble 

Tél. : 76 43 28 40 


Computer Applications 
12813 Lindley Drive Raleigh 
NC 27614 

3Com 

1365 Shorbird Way P.O. Box 
7390 Mountain View CA 94039 


Kinetics 
PO Box 3341 Walnut Creek 
CA 94598 


P-Ingéniérie 
226, Boulevard Raspail 
75014 Paris 


Statware 
PO Box 510881 Salt Lake City 
UT 84151 


Applied Engineering 
PO Box 798 Carrollton 
TX 75006 


Chris Payne 
15 Braddenham Walk, Stoke 
Mandeville, Bucks, HP21 9DZ 


Southern California 
Research Group 

PO BOX 593 A Moorpark CA 
93020 


International Apple Core 
Prod.Dept #N02 908 George 
Street Santa Clara CA95054 


Marvie 
37, rue des Mathurins 
75008 Paris 


CBS Software 
One Fawcett Place Greenwich 
CT 06836 


Designware 
185 Berry St San Francisco 
CA 94107 


HRM Software 
175 Tompkins Av Pleasantville 
NY 10570 


Simon & Schuster 

Simon & Schuster Bldg 1203 Av 
of the Americas New York 
NY10020 


Hayden 

600 Suffolk St Lowell MA 01854 
Sublogic Corp 713 Edgebrook 
Drive Champaign IL 618210 


KA Service Formation 
14, rue Magellan - 75008 Paris 
Tél. : 47 23 7200 


CCAM 
95, rue Lafayette - 75010 Paris 
Tél. : 47 80 2223 





‘DOSPATCH.S’ (page 68) 


LA SEULE CHOSE QUI RESTE EST LE BINAIRE 


161 * NE SORT FILE NOT FOUND QU'APRES 


* AVOIR ESSAYE LES 2 DRIVES DU 
* SLOT ACTUEL. 


162 
163 


DEA 2 


165 
166 
167 
168 
169 
170 
171 
172 BIDRIVE 


LDA ERRNUM 
CMP 49 

BCS BIDRIVEND 
CMP 46 

BCC BIDRIVEND 


LDA #3 


PUIS VIENS LE PATCH: QUELLE ERREUR ? 


UN FILE NOT FOUND, UN VOLUME MISMATCH ? 
UN 1/0 ERROR ? NON ALORS TERMINE... 


SINON, CHANGE DE DRIVE 


IL s'agit d'un système graphique double-haute 
résolution écrit en Pascal. COGO vous permet de 
manipuler des graphiques grâce à un langage de 


description des objets - points, angles- et à l'emploi 
de fonctions primitives de manipulation très 
puissantes : cercle, tangente, 

intersections, parallèles, etc. Il est ainsi possible 
de tracer des grilles, des cercles, des segments de 
droite, des tangentes communes à deux cercles, 
de calculer des distances, des angles. 


SBC DRIVENUM 
STA DRIVENUM 


LDA DRIVESW 
177 BNE BIDRVENDI 
INC DRIVESW 
JMP DOCMD 


181 BIDRVENDI JMP PATCH2 
182 BIDRIVEND RTS 


TOUS LES RENSEIGNEMENTS SONT 


* 
* 

187 * TIRES DE "BENEATH APPLE DOS' 
* 
* 


CETELLLELEILIILLEELLILLLLELLLLELLZ] 


ÉCEPEELLEEELELLEELELLELEELELEELE]) 


A-T-ON DEJA CHANGE DE DRIVE ? 

QUI, ON EST BON POUR LE MESSAGE !!! 
NON, MAIS CE NE MARCHERA PAS 2 FOIS... 
DRIVE CHANGE, ON RÉ-ESSAYE 


ANNULE DRIVESNW POUR LA PROCHAINE FOIS 
ET RETOURNE AU TRAITEMENT DES ERREURS. 


Vous avez un Apple Ile avec Chat Mauve ou un llc ? 


haute résolution. 


L'éditeur permet une saisie rapide du langage. Une 
instruction COGO peut-être exécutée dès la saisie 
pour faciliter la mise au point, ou au sein d'un 


programme. 


Vous avez Pascal 1.2 ? 


Utilisez ( OGO Par Nicolas Montsarrat 


Ce programme, destiné à résoudre des problèmes de 
géométrie plane, comporte des instructions de stockage sur 
fichier afin de permettre la reprise d'un calcul. 

NB : Sur l'Apple //c, l'affichage se fait en simple 


150,00 F TTC, franco 
Bon de commande page 74 
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Vous... Votre Apple... …et Pom’s 


Voici déjà un an, nous vous avions interrogé, sur vous, sur votre Apple et sur Pom's. Nous souhaitons en prendre 
l'habitude, pour mieux vous connaître, pour mieux apprécier l'évolution de votre équipement, pour mieux centrer nos 
articles Sur vos aspirations. Comme l'an passé, nous procéderons à un tirage au sort qui permettra à dix lecteurs de 
bénéficier d'un abonnement avec disquettes. 





Vous... 

Votre âge -æ15an Sexe féminin Langages Basic Votre niveau en débutant 
de 15 à 19 ans masculin pratiqués Pascal programmation intermédiaire 
de 20 à 24 ans alsément  Forh amateur averti 
de 25 à 34 ans Logo haut niveau 
de 35 à 45 ans Assembleur 6502/65C02 

+ de 45 ans Assembleur 68000 
AUTOS... Chaque semaine  -de 2heures 
' de 3 à 8 heures 
de préférence sous DOS FANS ERRRAREEE 
à votre micro %9à 16 heures 
sous ProDOS + de 16 heures 
sous CP/M 





Votre matériel 


Le micro br: tu ASE L'Imprimante Les extensions 
Apple //e 6502 Macintosh 512 Ko ImageWriter Seïkosha Carte 80 colonnes 
Apple //e 65C02 Macintosh Plus ImageWriter / Mannesman 80 colonnes étendue 
Apple //c Lisa Apple DMP Centronics Carte Z80 avec CP/M 
Apple // Epson % Carte souris 
Nombre de lecteurs, interne et externe : AU …..:; LEE Disque dur 
Table traçante 


Ce que vous allez bientôt acquérir : 





et Pom's 


Vous avez connu Pom's De 5 (très bon) à Quelles autres revues 
0 (très mauvais) votre informatiques lisez-vous ? 





par une publicité le niveau général... 
dans un salon opinion Sur  j présentation 
par un autre amateur l'intérêt des programmes... 
en kiosque la clarté des articles... 
en boutique leur intérêt pédagogique... 
les micro-informations………. 
les disquettes d'accompagnement... 
Ce que vous préférez Ce qu'il faut changer ou développer 


Nom 


Prénom 


Adresse 


Ville 


Code Postal 





Abonné © 
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mm = 


Bon de commande 


Disquettes 


(CE BORMES S) ss SOU ssscsssssmene-oes 
(cf. Pom'sn° 8) ISOODE scene 
(cf. Pom'sn"1lO) ss: SOOUE ‘ses ar 
(CÉPonsn Ti) ss ASOOVE  zasrasmmessee 
(CE Pomsun 19) sas TSOODEF sésame 
(CF PONS n 23) sas ADOOODE crane 
Échange EPE: Simmons LÉGER cours M OO creme 
(cf.cen” page4) À SOC.  Asssrsnosmessssneus 
(CE PONS LS) ss, À LSOOON session 
mamans ere cessent teens etre (cf. Pom's n° 19) EL EE 


MACASTUCES:........issssiccciseserenensesens GE Pomen 21) causes AU OUR sus 


P-FORMAT P-POLICE ‘::..............… (cf Pomen, 210) sata AZOOO0P . sissenessses 
(chiPoman" 21) ssssess A TSOOUR ssssmsaa 


Recueils 


N°1, recueil des revues 1 à 4... 0 ss 
Disquettes d'accompagnement 1 à 4... 
N°2, recueil des revues 5 à 8 ........................................... 
Disquettes d'accompagnement 5 à 8 ........................... 
N°3, recueil des revues 9 à 12 . (Disponible le 20 avril 1986) ... .…..... à 140,00F 
Disquettes d'accompagnement 9 à 12... .......... à IAU,UUE 


Revues, disquettes 


Revues4 7 8 À DORE nos 
Revues 10 11 12 13 14 15 16 17 18 19 20 212223 à: AOOOR  isssigecessn sens 


Disquettes Apple II, //e, //c 
12 43 4 S 6 7 8 9 10° IL 22 et en) sue SSOO0F ess 
13 14 15 16 17 18 19 20 21 22 23 


Disquettes Macintosh 
14/15/16 groupées _ ….…... à 150,00F 


LA 28 20 0022228 ose D OUT serons 
ME -… __ _ — soc NE dasumre 


Abonnements Pour 6 numéros à partir du fL__] 


Abonnement à la revue seule DOOIODE oran 
Abonnement revue + disquettes Apple I, //e, {le ASO OO semis 
Abonnement revue + disquettes Macintosh... à COOOOE same 


Total TTC : 


Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 


sn sms sn nn nn nee nnnnennnnnn ss nsesnnnnnesenmnnsnnssnns sn sn sn sms sss sense nesressneeeeesseeesees 


000 nn 7 6 0 en ee nn re ss sos ss sn senrosvereesasnnannnaansasnressessnes es des ess res cessesesssessnss 


Imprimerie Rosay, 94300 Vincennes. Imprimé en France. Dépôt légal : Mars 1986. N° 3093 
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Le spécialiste des PLUS de la Micro 
vous invite dans le Nouveau Monde du 










Macintosh Plus 


Dernière heure 
Floppy externe 800 K 
2900 F HT 






Caractéristiques 


- Micro processeur 68000 Plus rapide 


-128 K ROM intégrant des 
fonctions graphiques rapides 
et la gestion du bureau 

- Clavier avec bloc numérique et 
touches curseur 

- RAM 1 Méga Octets extensible 
à 4 Mégas 

- Lecteur de disquette 800 K 
intégré 

- Interface SCSI permettant de 
relier des périphériques puis- 
sants 

- Système d'exploitation 5.1 
avec architecture supérieure 
et mémoire cache 


Plus puissant 

Plus ouvert 

Plus connectable 
Plus communiquant 
Plus facile 


Plus économique 





A) Vous êtes équipé d'un Macintosh 
IEF vous ouvre la porte des plus pour seulement : 
- 4.500 F HT (si vous êtes équipé d'un 512 K d'origine Apple) 
- 6.500 F HT (si vous êtes équipé d'un 128 K d'origine ou étendu) 
- Pour ces prix, IEF vous change la plaque mère, le lecteur de disquettes et le clavier. 
- La transformation est garantie 1 an par Apple. 

: - Ces prix ne sont valables que pendant une durée limitée, réservez dès aujourd'hui votre transformation. 

- De plus, si vous achetez cette transformation, IEF vous offre son disque dur 20 Mégas au prix de 11.900 F HT! 


| B) Vous n'êtes pas encore équipé d'un Macintosh 
IEF vous offre Macintosh Plus exceptionnellement pour 24.900 F + 
Promotion spéciale IEF de lancement : 


1 Macintosh Plus + 1 disque dur 20 Méga Octets 34.900 K HT (offre limitée) 


IEF propose des conditions spéciales pour les Grands Comptes et les établissements d'enseignement 
Si vous voulez profiter d'une de ces offres, renvoyez vite le coupon réponse ci-dessous 


217, quai de Stalingrad 92130 ISSY LES MOULINEAUX Tél:(1)45.57.14.14  Télex :200210F 


Coupon réponse à retourner à : LELF, 217, quai de Stalingrad 92130 ISSY LES MOULINEAUX 
NOM sssimnsnatinnnaanmmesnen cresson 
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l'actualité 
les bancs d'essai 
les guides d'achat 
le dossier 
les programmes 


ORDINATEUR 
INDIVIDUEL 
















LA RÉFÉRENCE EN M 
LES SECRETS DU LOGICIEL RÉUSSI 


HR mone DES ID Got i rincer 


À RÉFÉRENCE EN MICRO-INFORMATIQUE 


LAS EE A | J l 
# 4 1 
PREMIERE f” à 
NES ; 


fu: " 
MDRESSES WIORDSTAE 












QU 
pEssAL CO 
BL SINCLAR 
; bbA : D 
Nouv ns NER 
veRTANTE star PO net 
Ÿ 
& LC, V 


e- w À 


A L'ORDINATEUR INDIVIDUEL, les rédacteurs, les conseillers techniques, les correspondants à 
l'étranger, l'équipe entière se mobilise pour vous fournir tous les mois une information 
complète et de qualité. Le monde de la micro bouge : L'O.I. teste pour vous les micros et 
logiciels qui apparaissent sur le marché. Il vous dit lesquels choisir et pourquoi. Vous êtes déjà 
équipé et vous souhaitez tirer le maximum de voire machine ? Les spécialistes de L'O.I. vous livrent 
conseils, programmes inédits et astuces d'utilisation. Lisez chaque mois L'ORDINATEUR INDIVIDUEL. 


